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INTRODUCTION 


Le ZX81 a succédé très rapidement au ZX80, l*un des ordinateurs 
domestiques les plus vendus. Quelles ont été les causes détermi¬ 
nantes d'un tel succès ? Son prix très abordable d'une part et sa 
simplicité d'emploi d'autre part : une combinaison unique ! 

Le nouvel ordinateur ZX81, commercialisé par la firme Sinclair 
depuis mars 1981, présente un certain nombre d'améliorations par 
rapport à son prédécesseur : un langage Basic plus évolué, une 
meilleure finition et un prix plus avantageux. 

Dans ces conditions, pourquoi ne rencontrerait-il pas le même 
succès que le ZX80 ? La plupart des revues spécialisées ont fourni 
des commentaires enthousiastes sur ses possibilités. Il convient 
particulièrement à tous les débutants désireux de s'initier à la 
programmation. 

Le contenu de ce livre se présente très différemment de celui 
du "ZX80 Pocket Book" ; tout en essayant de conserver la qualité 
de celui-ci, nous avons adopté un style plus concret et une présen¬ 
tation moins rigoureuse (le fruit de l'expérience...). 

Si vous êtes déjà possesseur d'un ZX80, procurez-vous sans délai 
l'extension mémoire ROM 8K avant de vous plonger dans la lecture de 
ce livre ! Tous les programmes sont écrits avec les instructions 
Basic du ZX81 et sont incompatibles avec la version ZX80 initiale ; 
il ne s'agit pas d'un ouvrage sur le ZX80 dont la couverture a été 
rapidement rebaptisée "ZX81" pour l'occasion. 

Cette précision est importante dans la mesure où les deux modèles 
sont très différents. 

La majorité des ZX81 étant vendue sans l'extension mémoire 16K 
RAM, une bonne part des programmes présentés dans ce livre néces¬ 
site seulement une capacité mémoire de IK. 
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Par contre, l'extension mémoire est sans nul doute indispensable 
pour tirer le meilleur parti de l'ordinateur. Nous vous conseillons 
vivement cet achat si le virus de la programmation vous atteint. 
Peut-être que si vous écriviez au Père Noël... ? 

Les débutants trouveront sans aucun doute dans ce livre quelque 
chose de plus stimulant que des programmes de jeux à recopier et 
à exécuter sans création personnelle. Nous souhaitons que les 
explications fournies au fil des chapitres répondent à votre attente. 
Il se pourrait même que certains passages vous fassent sourire. 

Si vous ne connaissez pas encore grand chose à la programmation, 
ne tombez pas dans le piège classique consistant à recopier les 
programmes conçus par quelqu'un d'autre : ce n'est pas de la pro¬ 
grammation. La plupart des gens sont capables de taper à la machine ! 

Essayez au contraire de développer vos idées propres et n'hésitez 
pas à utiliser les idées fournies dans ce livre pour alimenter votre 
imagination. La satisfaction sera d'autant plus grande si vous 
réussissez à faire marcher un programme de votre "cru" et à le 
faire apprécier par quelques amis. 

Nous avons également essayé de développer les "sous-programmes 
utilitaires" : ceux-ci ont le mérite de montrer comment exploiter 
certaines possibilités du ZX81 et en tirer le meilleur parti. Ces 
sous-programmes fournissent également un élément d'apprentissage 
intéressant pour les débutants, puisqu'ils peuvent venir s'insérer 
facilement dans d'autres programmes. 

Un dernier point : il se peut que vous découvriez une erreur 
dans un programme. L'expérience prouve que la plupart des erreurs 
sont dues à des fautes de frappe et peuvent passer inaperçues assez 
longtemps. Quelle qu'en soit l'origine, vous les trouverez déplai¬ 
santes, surtout si vous avez passé du temps à entrer le programme 
en mémoire. Ne vous découragez pas. Il y a une explication logique 
pour tout : tout problème n'est en fait qu'une solution cachée ! 


8 



LE PETIT LIVRE DU ZX81 


PRÉSENTATION 


Avant tout, il convient de préciser certaines des conventions 
utilisées dans cet ouvrage : 

Listings de prograuMnes 

1- Toutes les instructions clés sont soulignés. 

2- Toutes les fonctions clés et les symboles (par exemple <> ou 
^ ï: etc...) apparaissent en caractères gras. 

3- Par souci de clarté, si un message à imprimer occupe plus d'une 
ligne, celui-ci n'a pas obligatoirement la même disposition sur le 
listing du programme et sur l'écran au moment où vous le tapez. 
Prenons l'exemple suivant qui est extrait du programme intitulé 
"COURSE DE SKI" : 

9060 PRINT " SELECTiœNEZ EN PREr^fCER LIEU", 

"LE NIVEAU DE L EPREUVE QUE", 

"VOUS DESIREZ TENTER." 

Cette présentation "en colonne" correspond à l'affichage du 
message tel qu'il est obtenu par la commande RUN au moment de 
1' exécution du programme. 

Pour entrer cette ligne en mémoire, il faut taper les trois 
messages à la suite les uns des autres sans oublier de les séparer 
par une virgule . Ainsi, après avoir appuyé sur la touche NEW LINE, 
vous verrez apparaître sur l'écran : 

9060 PRINT " SELECTIONNEZ EN PRE 
MIER LIEU","LE NIVEAU DE L EPREU 
VE QUE", "VOUS DESIREZ TENTER." 

4- Dans le but d'améliorer la compréhension des méthodes de pro¬ 
grammation employées, les listings sont agrémentés de commentaires 
ceux-ci sont situés entre parenthèses à droite de la page. 
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Exemple : 

200 LET X=1 (ceci est un commentaire). 

Les exemples 

Les explications fournies sont accompagnées d'un certain nombre 
de petits programmes ou sous-programmes à expérimenter. Certains 
sont conçus pour mettre en valeur un point particulier, principa¬ 
lement dans le chapitre OPTIMISAT ION DES PROGRAMMES”, où sont 
inclus de nombreux programmes d'évaluation des performances. 

En les chronométrant, vous pouvez comparer l'efficacité des 
différentes méthodes de programmation ; les temps obtenus sont 
consignés dans un tableau à la fin du livre. 
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SI QUEUE D’ANE 
M’ÉTAIT CONTÉE 


CAPACITE MEMOIRE NECESSAIRE : IK RAM 


Commençons par une récréation : 
comment restituer une queue à 
cette pauvre bête qui a perdu la 
sienne ? 

Le programme est exécuté sur le 
mode rapide (instruction FAST) : 
par conséquent, vous ne pouvez pas 
voir le dessin de l'âne de façon 
continue. Dès que vous appuyez sur 
une touche, tout est effacé de 
l'écran : vous devez alors deviner 
combien de temps il faut continuer 
à appuyer sur cette touche. 

Quand vous relevez le doigt, la 
queue est décochée en direction de 
l'âne. Si vous avez réussi à l'at¬ 
teindre, votre score est affiché 
sur l'écran. Par contre, si vous 
attendez trop longtemps, vous ris¬ 
quez d'occasionner quelques domma¬ 
ges supplémentaires à ce pauvre 
animal ! 

Le but consiste à "épingler la 
queue" en un minimum de coups. 



Le dessin de l'âne programmé à la ligne 40 fait apparaître en 
gros caractères : 
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3 ,> 


1 REM ANE 

2 pm 

10 FAST 

20 LEl' I-IO (initialisation de T 

30 LET D=INT (RND*T)+19 (position de l'âne 

40 PRINT AT 1,D;’’ """;AT 2,D;"M»';AT 3,D;"Bïl";AT 4,D;"M" 

50 LCT N=1 
60 X=N0T N 
100 PAUSE 4E4 
110 PCKE 16437,255 
120 IF INKEY$<>’"' THEN GQSUB 1000 
130 IF C>=D THEN GOIQ 300 
140 IF X=D*2-1 THEN GOTO 200 
150 LET N=N+1 
160 GaiO 100 

200 PRINT AT T,T; "PAPPAIT";AT 14,0;N;" COUPS" (gagné ! 

210 GCnO 400 

300 1F_ X<=63 THEN PRINT AT T,T; "AIE " (perdu ! 

400 INPUT Y$ (attend un nouveau tour 

410 

420 RUN 

1000 PLOT X,39 (dessine la queue 

1010 LET C=INT (X/2) (l'âne est-il touché ? 

1020 I^C-D>=0 Pm C-D<3 THEN UNPLOT X,39 (...si oui, efface 

1030 IF INKEY$="" THEN RETURN 


1040 ^ X=X+1 
1050 IF X<64 THEN GOTO 1000 
1060 PRINT AT T,T;" DOfl^AGE " 
1070 RETURN 


(retour au programme principal 
si pas de touche pressée 
(position suivante 
(encore sur l'écran ? 

(sortir de l'écran 


(dessine l'âne 

(compteur de tours 
(position de départ 
(affiche 

( touche appuyée ? 

(dépasse l'âne ? 

(coup au but ? 

(incrémentation du compteur N 
(encore un tour 
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IDENTIFICATION D’UNE 
CHAINE DE CARACTÈRES 


P ourquoi identifier une chaîne de caractères ? 

Quelle utilité peut avoir un sous-programme permettant de recher¬ 
cher une chaîne de caractères à l’intérieur d'une expression ? 

C'est ce que va nous montrer l'exemple suivant. Imaginez un programme 
comportant ces deux lignes : 


100 PRINT "COMMENT SE NORME LE BEBE LIEVRE?" 
110 INPUT 


Lancez l'exécution du programme. Que se passe-t-il ? Une fois la 
question posée, l'ordinateur attend une réponse. Celle-ci peut 
prendre plusieurs formes différentes et néanmoins exactes, telles 
que : 


UN LEVRAUT 
LEVRAUT 

ON L APPELLE UN LEVRAUT 


etc_ 

Si la réponse programmée est LEVRAUT, une simple comparaison entre 
et la réponse exclut la première et la troisième éventualités ! 


C'est là où intervient le sous-programme : il permet de rechercher 
une chaîne de caractères à l'intérieur d'une expression de chaîne 
pour voir si elle est présente ou non. 

Pour ceux qui connaissent le Basic Microsoft, ce sous-programme 
est comparable à l'instruction INSTR. 

Deux variables sont nécessaires au fonctionnement de ce sous- 
programme : 

: variable alphanumérique contenant l'expression de chaîne à 
analyser. 

: variable alphanumérique contenant la chaîne de caractères à 
rechercher dans . 
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Apres retour au programme principal, la variable X contiendra soit 
la valeur 0 (cas où ne contient pas la chaîne Vl^) soit l'empla¬ 
cement du premier caractère de la chaîne à l'intérieur de A^. 


Le sous-programme se présente de 

9200 ^ X=INSTR(A$,W$) 

9210 L£S W$=0 THEN GOTO 9290 
9220 ^ X=1 
9230 ^ Y=IJEN W$ 

9240 ^ Y>LEN A$ THEN GOTO 9290 

9250 ^ W$=A$ (X TO Y) THEN RETORN 

9260 X=X+1 

9270 ^ Y=Y+1 

9280 GOTO 9240 

9290 X=0 

9295 RETURN 


la façon suivante : 


(prévient l'erreur n° 3 

(initialise le compteur de carac¬ 
tères 

(n° du dernier caractère 
(dépassement de chaîne ? 

(trouvé dans ? 

(sinon caractère suivant 

(réactualise le n° du dernier 
, . caractère 

(encore un essai 

(met à zéro si pas trouvé 
(fin du sous-programme 


Appliquons le sous-programme au programme suivant : 


100 Rm "JEU DES QUESTIONS ET DES REPONSES" 
110 LCT SOORE=0 

115 TOTAL=0 

120 Q^="œmENT SE NOMME LE BEBE LIEVRE?" 

130 ICT Wg="LEVRAUr" 

140 (3QSUB 8000 

150 LET Q3="QUELLE EST LA CAPITALE DU PEROU?" 
160 ICT W3="LIMA" 

170 QQSUB 8000 

180 Q3="QUEL EST LE JOUR LE PLUS LC^G?" 

190 W3="21 JUIN" 

200 GQSUB 8000 

210 ICT Q2="00MBIEN FONT 54.2 * 29.333?" 

220 UT W2=STR3 (54.2*29.333) 

230 GQSUB 8000 

240 LET Q$="QUI EST LE PLUS BEAU ?" 

250 ICT V®="MQI" 

260 GC6UB 8000 

270 LCT Q2="DATE de la BATAILLE MARIOWN?" 
280 ICT Wg="1515" 

290 GC6UB 8000 

300 LET Q2="QUI A INVENTE L EOOLE ?" 

310 lET Wg="CHARLEMAaŒ:" 

320 GQSUB 8000 
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330 Q?="QUEL EST WTRE SœRE ?" 

340 ^ W$=SIR$ SCORE 
350 QOSUB 8000 
400 SCROLL 
410 SCROLL 

420 PRINT "VOUS AVEZ ";SOC«E;" St)R";TarAL 
430 GOTO 9999 
8000 SCROLL 
8005 SCROLL 
8010 PRINT Q$ 

8020 INPÜT A$ 

8025 LET aOTAL=TOTAL+l 
8030 SCROLL 
8040 PRINT A$ 

8050 GOSUB 9200 
8055 SCROLL 

8060 ^ X TOEN GOTO 8110 
8070 PRINT "C EST FAUX" 

8080 SCROLL 

8090 PRINT "LA REPONSE EST ;W$; 

8100 RETURN 

8110 PRINT est EXACT" 

8120 ^ SCORE=SCORE+l 
8130 RETURN 
9999 STOP 


La variable Qjf contient la question, la réponse. Le sous- 
programme situé à partir de la ligne 8000 pose la question, reçoit 
la réponse et vérifie si celle-ci est juste. 

Si la réponse contient le mot-clé (affecté à la variable W0, le 
score est augmenté d'un point. 

L'absence de restriction dans les réponses à donner à l'ordina¬ 
teur font le charme de ce programme. Vous tapez ce que vous voulez 
et le sous-programme fait le reste à votre place ! 

Quelques-unes de ces questions sont ardues, mais si vous lisez 
la totalité de ce livre, vous trouverez le moyen de fournir la 
réponse correcte à coup sûr... 6t cela sans même avoir eu besoin 
de lire la question ! ! 

Comment est-ce possible ? La solution vous sera fournie à la fin 
du livre si vous ne l'avez pas découverte vous-même entre-temps... 


15 



LE PETIT LIVRE DU ZX8Î 


roURSE DE SKI 


Si vous avez toujours rêvé de 
slalomer à 120 km/h sans danger 
sur les pistes enneigées, voici 
la chance de votre vie ! 

Comme chacun sait, tout l'art 
du slalom consiste à passer du 
bon côté des "portes" en les 
évitant. Pour vous piloter entre 
elles, la touche "5" assure le 
dérapage à gauche, la touche "8" 
le dérapage à droite. 

Le programme tel qu'il est pré¬ 
senté ici choisi au hasard une des 
deux courses. Quelques explications 

données à la suite du listing vous permettront éventuellement de 
corser la difficulté, ou de rajouter une course à votre goût. 



1 COURSE DE SKI *** 

2 Rm 

3 REM 

10 GOTO 100 

20 Bm CONTROLE LE IVDUVEMENT 
30 D=OQDe INKEY$ 

40 ^ NOT D THEN RETURN 
50 ^ D=33 THEN LET S=S-1 
60 IF D=36 THEN LET S=S-l-I 
70 S=S-INT (S/32) *32 
80 RETURN 

100 Rm INITIALISATiaSf DU JEU 

110 GQSUB 9000 

120 QQSU3 8000 

130 ^ P=VAL C$ (1 TO 2) 

140 S=VAL C$ (3 TO 4) 

150 H=0 

1000 Rm DEROUTEMENT DE LA COURSE 
1010 FOR X=5 TO LEN C$-l STEP 2 


(code de la touche appuyée 

(touche incorrecte 

(modifie la position du skieur 

(positionne le skieur sur 
1'écran 

(règles du jeu 
(choix de la course 
(départ de la course 
(position de départ du skieur 
(initialise le compteur de 
fautes 

(balaye la chaîne contenant 
la course 
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1020 SCROLL 

1030 PRINT AT 21,P;"*”;AT 21,P+G;"*";AT 21,S;"V" 

1040 GOSUB 20 (contrôle du mouvement 

1050 LËT P=P+VAL C$(X TO X+1) (déplace les portes 

1060 GOSUB 20 (autre vérification 

1070 ^ S<=P OR S>=P+G THEN LET H=H+1 (porte bousculée ? 

1080 NEXT X 

2000 Rm LIOSIE D ARRIVEE 
2010 SCROLL 

2020 tXDR X=P TO P+G (affiche la ligne d'arrivée 

2030 PRINT AT 21,X;"-’'; 

2040 NEXT X 
2100 SCROLL 
2110 SCROLL 

2120 PRINT "VOUS AVEZ HEURTE",-H; ” PORTES" 

2130 GOlO 9999 

8000 Rm SELECTION DE I^A aOI.lRSE 
8010 Rm VOIR EXPLICATIONS JOIOTES 
8020 ^ C$="141700000000-l-l-l- 

1 - 100000001010200 - 1 - 1 - 100010200 - 

200 - 1 - 1 - 100000000010101010101 - 2 - 

2-200000000010101010101010102020 

2000000000000 - 1 - 1 - 1010101 - 1 - 1 - 1 - 

1 - 1 - 2 - 2 - 2 - 2 - 2 - 1-1000000010101010 

101 - 2 - 2 - 2-2000000010102020202010 

1010000000000000000 " 

8030 ^ RMXO.S THEN RETURN 
8040 LET C$="00020ü0000000000000 

OOOOOOOOOOlOlOlOlOlOlOlOlOlOlOOC 

00000020202020000 - 1 - 1 - 1 - 1 - 1 - 1 - 1 - 

1010101010000000000000000 - 1 - 1 - 1 - 

102020202010101 - 2 - 2 - 2 - 2 - 2 - 2 - 2 - 1 - 

1 - 1 - 1 - 10101 - 1 - 1000000000000 " 

8050 RETURN 
9000 REM REGLES 
9010 C^ 

9020 SIOW 

9030 PRINT TftB 8;"*** CCmSE DE SKI ***” 

9040 PRINT 
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9050 PRINT " VOUS LEVEZ PASSER ENTRE LES", 
"PORTES EENDANT LA DUREE EE LA", 
"EESŒNTE. RENVERSER UNE PORTE", 
"OU SORTIR DE LA PISTE VOUS", 
"FAIT PERDRE LES POINTS." 


9060 PRINT " SELECTIONNEZ EN PREMLER LIEU", 
"LE NIVEAU DE L EITŒUVE QUE", 
"WUS lESIREZ TENTER." 


9070 PRINT "UTILISEZ LA TOUCKE""5""OU""8""", 
"POUR VIRER A GAUCHE OU A DROITE. " 

9080 PRINT 

9100 PRINT' "DANS QUELLE CATEGORIE ETES VOUS?" 
" (1) AMATEUR ", 

" (2) AMATEUR CHEVRONNE", 

" (3) PROFESSIONNEL", 


9110 INPUT NIVEAU 

9120 IF NIVEAU) 0 At® NIVEAU<4 THEN GOTO 9200 
9130 CIE 

9140 PRINT "PARDOSI ?-'t 
9150 GOTO 9100 
9200 G=3+ (4-NTVEAU) *2 

9210 PRINT "PRET?-" 

9220 FOR X=3 TO 1 STEP -1 
9230 PRINT X;".."; 

9240 PAUSE 50 
9250 NEXT X 
9270 RETURN 


(largeur de la porte 


(donne un délai de 3 s. 


La course est choisie au hasard dans le sous-programme démarrant 
à la ligne 8000 ; peut-être préférerez-vous la choisir vous-même, 
à moins que vous ne décidiez de remplacer, à votre idée, les deux 
courses existantes. 

Les quelques explications qui suivent, vont vous indiquer comment 
créer vos propres descentes. 

Après l'exécution du sous-programme (lignes 8000 à 8050), la va¬ 
riable alphanumérique C$ doit contenir un schéma de la descente du 
type : 

C$ (1 TO 2) première position du piquet gauche de la porte sur 

l'écran ; la position du piquet de droite est fonction 
de la catégorie choisie (celle-ci est entrée à la 
ligne 9110) . 
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C$(3 TO 4) position de départ du skieur ; celui-ci est générale¬ 
ment placé deux "crans" à l'intérieur de la première 
porte. Si vous voulez corser la difficulté, rien ne 
vous empêche de faire démarrer le concurrent à l'exté¬ 
rieur de la porte. 

C$(5 TO ) le reste de la chaîne alphanumérique est constitué 

d'une série de nombres à deux chiffres : ceux-ci, ajou¬ 
tés à la position de la dernière porte, déterminent 
l'emplacement de la suivante. Les nombres inférieurs 
à -2 ou supérieurs à 02 sont exclus : en effet, le 
skieur ne peut se déplacer que de deux positions au 
maximum par "coup". 

La description d'une course - pour le moins abrégée - pourrait 
se présenter de la façon suivante : 

15 17 00 00 01 01 -1 -1 -2 -2 00 00 

Que signifie en clair cet ensemble de chiffres ? 

Le chiffre 15 représente la position du premier piquet (colonne 
15), et le chiffre 17 la position de départ du skieur (colonne 17) ; 

aux deux premiers "coups", la position des portes reste la même (00). 
Les deux "coups" suivants déplacent la porte sur la droite (valeur 
positive) d'une seule position (01) à chaque fois. 

Ensuite, la porte est déplacée sur la gauche d'un seul cran à la 

fois (-1), puis de deux crans à la fois (-2). 

Les deux derniers "coups" laissent la position des portes inchangées 

( 00 ). 

Le programme affiche automatiquement la ligne d'arrivée et le 
nombre de portes "bousculées". 

Le jeu progressant environ à la vitesse de 3 "coups" par seconde, 
la durée idéale d'une descente se situe entre 30 secondes et une 
minute. Bien sûr, rien ne vous empêche de concevoir une course de 
cinq minutes. 

Faites attention à restreindre la course aux dimensions de 
l'écran ; dans le cas contraire, le code erreur B serait affiché. 

La course ne doit pas aller au-delà de la colonne 22, ou en deçà 

de la colonne 0. En effet, les colonnes supérieures à 22 ne sont 
pas utilisables, puisque la largeur des portes est de 9 crans en 
catégorie "amateur". 
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OPTIMISATION 
DES PROGRAMMES 


Dans ce chapitre, nous allons étudier les moyens dont dispose 
l'opérateur pour programmer efficacement. 

Deux thèmes seront développés : 

- l'optimisation de la mémoire vive (RAM). 

“ l'optimisation des temps d'exécution d'un programme. 

Nous verrons que pour certains cas particuliers il est néces¬ 
saire d'opérer un compromis entre ces deux paramètres, le plus 
souvent au détriment du deuxième. 

Ce dilemme est très fréquent sur les petits micro-ordinateurs ; 
même si le vôtre est équipé d'une extension 16K RAM, vous vous 
rendrez compte qu'une étude minutieuse est parfois nécessaire pour 
tout "caser" en mémoire (exemple : la version intégrale de STAR 
TREK). 

Le manuel d'utilisation fourni par Sinclair détaille de façon 
tout à fait explicite le processus de stockage des variables et 
des programmes à l'intérieur du ZX81. 

Néanmoins, certaines caractéristiques, qui ne sautent pas obli¬ 
gatoirement aux yeux, peuvent s'avérer très intéressantes en ma¬ 
tière de programmation. C'est pourquoi, nous allons étudier le 
processus de stockage de chaque élément. 


REMPLACEMENT DES VALEURS NUMERIQUES 

Si vous possédez un ZX81 de capacité mémoire IK RAM (ce para¬ 
graphe a moins d'intérêt si vous êtes équipé d'une extension 16K), 
vous ne disposez lors de la mise en route que de 899 octets sur les 
1024 prévus ; la différence (125 octets) est réservée au stockage 
des variables de système, ce qui représente un bon dixième de la 
capacité mémoire totale. 
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Le tampon mémoire écran nécessite au minimum 25 octets ; en 
effet, tout ce qui est entré dans le tampon d'affichage par l'in¬ 
termédiaire des instructions PRINT ou PLOT consomme automatiquement 
de la place en mémoire. Cette remarque ne s'applique pas au modèle 
16K RAM. 

Par conséquent, vous disposez d'environ 850 octets à partager 
entre les lignes de programme, les variables et l'affichage (quand 
il est utilisé) ; l'interpréteur Basic nécessite lui aussi de la 
place en mémoire pour l'exécution du programme lui-même. 

Dans une ligne de programme on compte : 

- 2 octets par numéro de ligne (quel que soit le nombre de chiffres 
composant ce numéro) 

- 2 octets pour indiquer la longueur de la ligne 

- le nombre d'octets correspondant à la ligne elle-même (celui-ci 
se calcule aisément en comptant le nombre de touches pressées pour 
taper la ligne : voir explications ci-dessous) 

- 6 octets supplémentaires pour chaque caractère numérique entré 

- un octet supplémentaire pour passer à la ligne suivante. 

Examinons en détail les exemples suivants : 

Ligne de programme Emplacement mémoire 

10 liET X=Y 9 octets au total : 2 pour le 

numéro de ligne, 2 pour la 
longueur de la ligne, 4 pour 
taper le contenu de la ligne 
lui-même (LET, X, =, Y), et 
un pour passer à la ligne 
suivante. 

300 LET X=1 15 octets au total : 2 pour le 

numéro de ligne, 2 pour la 
longueur, 4 pour taper le 
contenu, 6 pour le chiffre 1 
et un pour passer à la ligne 
suivante. 

9000 DIM X(3,2) 24 octets : 2 pour le numéro de 

ligne, 2 pour la longueur, 7 
pour taper le contenu, 12 pour 
les chiffres "2" et "3" et un 
pour passer à la ligne suivante. 

Les exemples ci-dessus démontrent clairement que l'utilisation 
des expressions numériques dans un programme gaspille énormément 
de place en mémoire. 
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Pourquoi l'interpréteur Basic a-t-il été conçu de cette façon ? 

La raison principale est la suivante : la conversion des expressions 
numériques en valeurs à virgule flottante de 5 octets (et vice-versa) 
est un processus extrêmement lent. Peut-être l'avez-vous remarqué 
vous-même lors de l'affichage d'une expression numérique par l'in¬ 
termédiaire de l'instruction PRINT. 

Ceci explique pourquoi nous avions mentionné plus haut un dilemme 
entre occupation de la mémoire et temps d'exécution du programme. 

Pour économiser lors de l'exécution du programme le temps néces¬ 
saire à la conversion, toutes les expressions sont stockées sous 
forme convertie. 

Cette opération est implicite à chaque fois que vous entrez une 
ligne de programme en mémoire (ceci fait partie des routines de 
vérification de syntaxe). 

La conclusion à tirer de tout ceci est la suivante : essayez 
de réduire au maximum l'utilisation des expressions numériques. 

Grâce à l'économie de place réalisée, vous pourrez entrer des pro¬ 
grammes sensiblement plus importants. 

Il existe plusieurs astuces permettant d'éviter l'utilisation 
d'expressions numériques ; certaines ralentissent le programme, 
d'autres font appel à une écriture particulière qui peut sembler 
originale à certains. 

Une de ces astuces consiste à stocker dans une variable une valeur 
numérique couramment utilisée ; on emploie alors cette variable à 
la place de la valeur numérique elle-même. 

Exemple : 

10 ^ XOl THEN LET A=1 (26 octets) 

20 ^ YOI THEN LET B=1 (26 octets également) 

... peut être avantageusement remplacé par : 

5 LET Ü=1 (15 octets) 

10 IF XOU THEN LET A=U (14 octets) 

20 IF Y<)U THEN LET B=U (14 octets également) 

La première version occupe 52 octets alors que la deuxième n'en 
occupe que 43 ; on réalise ainsi une économie de 9 octets malgré 
la présence d'une troisième ligne de programme ! 

Malheureusement, ceci n'est pas strictement exact dans la mesure 
où le deuxième programme utilise une variable U, inexistante dans 
le premier. La variable numérique U à elle seule occupe 6 octets. 
L'économie réelle n'est donc que de 3 octets ; ce n'est pas le bout 
du monde, mais, à chaque fois que le chiffre "1" sera nécessaire 
dans le même programme, l'utilisation de la variable U à sa place 
économisera 5 octets. 
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Cette méthode présente également l'avantage de ne pas ralentir 
l'exécution du programme de façon sensible. 

A titre d'exercice, comparez les temps d'exécution respectifs 
des deux programmes de référence suivants : 

PRIA 10 ICT Y=0 

20 Pœ T=1 TO 1000 
30 X=27 

40 NEXT T 
9999 STOP 

PRIB remplacer la ligne 30 par 30 LET X=Y 

Pour ceux qui ne désirent pas chronométrer ces deux programmes 
(et les suivants), les temps d'exécution sont consignés dans un 
tableau à la fin du livre. 

Lancez l'exécution du premier programme (PRIA) et chronométrez-le 
jusqu'à l'apparition du message 9/9999 (ne vous inquiétez pas si 
cela prend une ou deux minutes). 

A présent, lancez l'exécution du deuxième programme (PRIB) sans 
oublier de modifier la ligne 30 comme indiqué. Chronométrez-le de 
la même façon. La différence de temps obtenue est due à la recherche 
du contenu de la variable Y et à l'affectation de celui-ci à la 
variable X ; cette opération n'existe pas dans le premier cas, 
puisque l'expression numérique est directement affectée à la varia¬ 
ble X (ligne 30). Le programme effectuant 1000 itérations, l'erreur 
initiale obtenue sur une seule boucle est multipliée par 1000. 

Une comparaison entre les deux résultats obtenus montre que la 
différence est négligeable. 

Il n'est pas nécessaire d'affecter les valeurs 0 ou 1 à des va¬ 
riables déterminées ; en effet, ces deux valeurs peuvent être obte¬ 
nues en utilisant une variable déjà existante dans le programme. 

Supposons par exemple un programme utilisant une variable D. 
L'expression : 

D=D donnera la valeur 1 (un nombre est obliga¬ 

toirement égal à lui-même : le résultat de 
l'opération de comparaison est le chiffre 1). 

NCfT I>=D donnera la valeur 0 (un nombre ne pouvant 

être différent de lui-même, le résultat de 
l'opération de comparaison est 0). 

Ces deux expressions occupent moins de place en mémoire que les 
chiffres 0 ou 1 dans l'écriture d'une ligne de programme. Par contre, 
elles ont l'inconvénient de ralentir légèrement l'exécution. Si 
votre programme nécessite une exécution rapide, il est préférable 
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d'utiliser directement les expressions numériques. 

Comparons les différents programmes de référence suivants : 

PR2A 10 Y=20 

20 TOR T=1 TO 1000 
30 ICT X=1 
40 NEXT T 
9999 STOP 

PR2B remplacer la ligne 30 par 30 LET X=Y=Y 

PR3A remplacer la ligne 30 par 30 LET X=0 

PR3B remplacer la ligne 30 par 30 LET X=tl0T Y=Y 

Chronométrez les temps d'exécution de la même façon que précé¬ 
demment et comparez les résultats obtenus pour les versions A et 
B de chaque programme. Ces résultats parlent d'eux-mêmes ; la ver¬ 
sion B occupe moins de place en mémoire. Quelle différence cela 
fait-il sur le plan de la vitesse d'exécution ? 

Vous possédez maintenant tous les éléments nécessaires pour 
choisir vous-même en fonction de chaque cas particulier ce qui est 
le plus adapté : rapidité d'exécution ou économie de mémoire. 

La ligne 5 LET Ü=1 nécessite 15 octets pour le stockage et 6 oc¬ 
tets supplémentaires pour l'affectation de la variable U. Six oc¬ 
tets sont économisés à chaque fois que la variable U est utilisée 
à la place du chiffre "1". Un rapide calcul montre que la variable 
U doit être utilisée au moins quatre fois dans le programme pour 
être "rentabilisée". On économise alors 4*6 = 24 octets, alors que 
la ligne 5 ne consomme que 21 octets. 

Comme vous le voyez, il est préférable de réfléchir deux fois 
avant de gaspiller les octets sous prétexte d'en économiser ! 

Pour vous fixer les idées à ce sujet, reportez-vous à l'étude du 
programme "Jeu de Dés" ; celui-ci a été rédigé avec l'idée d'occuper 
le moins de place possible en mémoire. 
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œMMENT EVITER L •UTILISATIOÊi DBS VALEURS NUMERIQUES 


Rares sont les programmes ne faisant pas appel à des valeurs 
numériques. Par contre, ils ne réclament pas obligatoirement la 
conversion en valeur numérique flottante sur 5 octets ! 

Sur le ZX81 IK RAM, ces variables à cinq octets peuvent occuper 
une place considérable en mémoire, particulièrement si les données 
se trouvent directement dans la ligne de programme (voir page 23) . 

Voici un exemple-type de programme nécessitant l'affectation 
préalable de plusieurs variables : 

10 V(1Û) 

20 ^ V(l)=22 
30 V(2)=9 

40 ^ V(3)=ll 
50 LET V(4)=17 


110 ^ V(10)=3 

Le paragraphe précédent nous a montré que chaque ligne de ce type 
coûte au moins 24 octets, un luxe difficile à s'offrir dans le cas 
présent ! 

Une méthode pas très élégante consisterait à entrer ces données 
en mode direct et à sauvegarder le programme avec la variable indi¬ 
cée V contenant les valeurs pré-affectées. 

Une meilleure solution consiste à mettre toutes les valeurs numé¬ 
riques dans une chaîne, puis à utiliser la fonction VAL pour les 
convertir. La seule^contrainte, dans notre cas, est d'avoir deux 
chiffres par valeub même si celle-ci est inférieure à dix (3 devient 
03). 


Prenons l'exemple suivant : 

10 ^ V(10) 

20 ^ V$="220911L7036651042003" 

30 FOR V=0 TO 9 

40 LÇT V(V+1)=VAL V$ (V*2+l TO V*2+2) 
50 NEXT V 


(31 octets 
(23 octets 
(57 octets 
(7 octets 


L'économie réalisée dans ce cas (100 octets) est suffisante pour 
programmer éventuellement quelques lignes supplémentaires. 

Le programme "Course de Ski" montre un exemple d'application de 
ce sous-programme. 


Si la chaîne est particulièrement longue (dans l'exemple précé¬ 
dent, chaîne contenue dans V{^) , une fois la routine exécutée, vous 
pouvez libérer la place occupée par les variables en affectant une 
chaîne "vide" à la variable alphanumérique. 
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Ceci revient à rajouter une ligne au programme précédent : 

60 ICT V2?="" 

Là encore, chaque programme est un cas particulier. Il est qua¬ 
siment impossible de créer un sous-programme universel qui puisse 
s'adapter efficacement à tous les cas. Nous avons simplement essayé 
de montrer dans ce paragraphe où et comment économiser de la place 
en mémoire. Il est possible que vous utilisiez des lignes de pro¬ 
grammes très différentes de celles présentées ci-dessus. C'est 
pourquoi, nous présentons plus loin, pour ceux qui le désireraient, 
une routine relativement passe-partout. 

Peut-être vous demandez-vous si l'utilisation d'une chaîne apporte 
réellement un gain de temps par rapport à l'utilisation d'une expres¬ 
sion numérique. Pour vous en convaincre, essayez les deux programmes 
de référence suivants : 

PR4A 10 ^ X$=”99" 

20 FOR 'I‘=l TO 1000 
30 ^ X=1 
40 NEXT T 
9999 STOP 

PR4B remplacer la ligne 30 par 30 LET X=VAL X$ 

Remarquez que le temps d'exécution du programme PR4A est sensi¬ 
blement le même que celui des programmes PRIA, PR2A, et PR3A. 


STOCXAGE DBS CHAINES DE DONNEES 


Certaines versions du Basic utilisent les commandes DATA et READ 
pour stocker des nombres ou des chaînes de caractères à l'intérieur 
d'un programme. 

Bien que l'on puisse se passer de ces deux commandes, il serait 
parfois intéressant de mémoriser dans un programme une chaîne 
alphanumérique sans avoir recours aux tableaux de valeurs (ceux-ci 
occupent une place importante en mémoire). 

Le stockage d'un ensemble de mots de longueurs différentes néces¬ 
site la constitution d'un tableau dont la longueur est celle du 
mot le plus long. 

Ce type de stockage des données occupe beaucoup de place en mé¬ 
moire ; en contrepartie, le temps d'exécution est très rapide 
puisqu'il suffit d'indiquer l'indice de la variable pour obtenir 
le mot complet. 

Pour certains programmes la place disponible en mémoire est pri¬ 
mordiale par rapport à la vitesse d'exécution. Dans ce cas, il est 
possible d'y adapter le sous-programme présenté ci-dessous (ou un 


26 



LE PETIT LIVRE DU ZX81 


sous-programme équivalent). 

Celui-ci permet d*extraire un mot ou une phrase d'une variable 
alphanumérique. 

Un exemple d'application de cette routine est fourni avec le 
programme "Création d'un fichier d'individus". 

Pour stocker des valeurs numériques, il vous suffit d'utiliser 
la fonction VAL avec la chaîne de caractères obtenue après l'exé¬ 
cution du sous-programme. 

Le fonctionnement du sous-programme nécessite l'emploi des varia¬ 
bles suivantes : 

D$ variable alphanumérique contenant la chaîne de caractères. 

Chaque mot est séparé par un caractère "/". Il est possi¬ 
ble de remplacer ce dernier en modifiant les lignes 9030 
et 9050 en conséquence. 

N variable numérique contenant le numéro d'ordre du mot à 

extraire dans la chaîne D^. 

variable alphanumérique recevant le mot extrait ; si le 
numéro d'ordre N du mot n'existe pas dans D^, reste 
"vide". Pour extraire une valeur numérique par cette mé¬ 
thode, appliquer la fonction VAL à cette variable. 

9000 MET LE N-IEME MOT DE Dgf DANS 

9005 XW=0 

9010 ^ W$="'' 

9015 POR X=1 TO N-1 

9020 ^ XW=XW+1 

9025 I£ XW>I£N D$ THEN PJETURN 

9030 ^ D$(XW)<>V” THEN GOTO 9020 

9035 NEXT X 

9040 LCT XW=XW+1 

9045 IF XW>UEN D$ THEN RETURN 

9050 IF D$(XW)='7” THEN RETURN 

9055 ^ W$=W$+D$ (XW) 

9060 GOTO 9040 

D'aucuns penseront probablement que ce sous-programme n'économise 
pas beaucoup de place en mémoire. Manifestement, celui-ci n'a d'in¬ 
térêt que s'il y a un grand nombre de données à stocker. 

Les lignes contenant l'instruction REM peuvent être éventuelle¬ 
ment omises lors de l'insertion de ce sous-programme dans un pro¬ 
gramme principal. 

Ce sous-programme occupe en tout 222 octets (en comptant toutes 
les variables utilisées, mais en omettant l'instruction REM). Sans 
nul doute, l'extension 16K RAM est souhaitable pour exploiter plei¬ 
nement cette méthode. 
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Malgré cela, si vous ne possédez que le modèle IK, il vous reste 
encore quelques 500 octets disponibles. Aussi ne bannissez pas 
complètement cette routine de vos programmes ! 

Ne perdez pas de vue qu'une variaible alphanumérique peut être 
affectée en mode direct avant l'exécution du programme ; elle peut 
être ensuite sauvegardée avec celui-ci sur cassette. Ce procédé 
évite l'utilisation encombrante de 1'instruction LET. 


œMMENT STRUCTURER UN PROGRAMME 


Le microordinateur ZX81 peut sembler rapide à celui ou à celle 
qui connaît peu ou pas du tout ce type de matériel. 

Il faut cependant admettre, sans rien retirer à ses qualités 
(surtout son prix), qu'il est en réalité assez lent. Vis-à-vis de 
microordinateurs professionnels et même de certains microordina¬ 
teurs individuels, le ZX81 ne soutient pas la comparaison. Ceci a 
une influence importante sur la vitesse de réponse de l'ordinateur 
en mode conversationnel (celui-ci nécessitant l'entrée des données 
au clavier). 

Au cours des paragraphes précédents, nous avons vu comment opti¬ 
miser l'utilisation de la mémoire dans un programme ; maintenant, 
abordons les problèmes inhérents à la vitesse d'exécution. 

Dans un premier temps, nous allons considérer le cas d'une uti¬ 
lisation fréquente d'un ou plusieurs sous-programmes. Quand le 
ZX81 rencontre au sein d'un programme les instructions GOTO ou 
GOSUB, il passe en revue toutes les lignes de ce programme (en 
repartant de la première) jusqu'à ce qu'il trouve l'adresse deman¬ 
dée . 

Par conséquent, si le programme doit être exécuté le plus rapide¬ 
ment possible, placez de préférence les sous-programmes souvent 
appelés dès les premières lignes (voir le programme "Course de 
Ski", page 16). 

Si vous observez cette règle, vous obtiendrez un programme du 
type : 

1 REM nom du prograrnne etc_ 

10 GOTO 1000 

20 REM sous-programiTe très utilisé 


1000 REM progranme principal 
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8999 STOP 

9000 REM sous-prograirme peu utilisé 

(initialisation etc...) 

Les programmes de référence suivants montrent comment la vitesse 
d'exécution d'un programme peut varier en fonction de son mode 
d'écriture : 

PR5A 10 X=1 

20 FOR 1^1 TO 1000 
30 IF X=1 IHEN NEXT T 
40 NEXT 
9999 STOP 


PR5B 

remplacer 

la 

ligne 

30 

par 

30 

IZ 

X=0 THEN NEXT T 

PR6A 

remplacer 

la 

ligne 

30 

par 

30 

IF 

X 

1 

PR6B 

remplacer 

la 

ligne 

30 

par 

30 

IZ 

NOT X THEN NEXT 


Le résultat de ces tests montrent que l'exécution d'une opération 
de comparaison est plus rapide si le résultat est 0 (comparaison 
"fausse"). Bien évidemment, si des lignes de programme supplémen¬ 
taires sont indispensables pour s'assurer que la comparaison est 
fausse, le bilan est plutôt négatif ! Par contre, si le choix 
est possible, arrangez-vous pour que dans la majorité des cas, les 
opérations de comparaison soient "fausses". 

On peut tirer un autre enseignement des deux derniers programmes 
de référence : que ce soit pour économiser temps ou mémoire, il 
est préférable de tester une valeur (vraie ou fausse) en mode direct 
sans utiliser les expressions du type X=1 ou X=0 (voir PR6A et PR6B). 

Ceci est uniquement valable si la valeur contenue dans la varia¬ 
ble est égale ou différente de zéro (en effet, la condition "vraie" 
donne un résultat différent de zéro). 

Etudiez attentivement ces résultats : incontestablement, vos 
programmes pourront bénéficier de ce type de renseignement. 

D'autre part, un certain nombre de programmes utilise une varia¬ 
ble qui est incrémentée de une unité à chaque itération de boucle. 

A la place, il est possibile d'utiliser les instructions POR/l^TEXT. 
Est-ce bien rentable ? C'est ce que vous pourrez constater en 
chronométrant les deux programmes de référence suivants : 

PR7A 10 LET T=1 

20 IF ’I^lOOO THEN STOP 
30 T=T+1 

40 GOTO 20 
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PR7B 10 FOR T=1 TO 1000 

20 NEXT T 
9999 STOP 

Nous vous laissons apprécier vous-même quelle est la version la 
plus intéressante. 

EXPRESSIONS NUMERIQUES 

L'utilisation des expressions numériques rend souvent l'écriture 
d'un programme plus compacte. Qu'elles permettent (ou non) d'accé¬ 
lérer l'exécution d'un programme, elles rendent fatalement celui-ci 
difficile à comprendre. Par contre, utilisées à bon escient, elles 
peuvent réduire le temps de travail en mémoire. 

Nous avons vu que le ZX81 exprime le résultat de toute opération 
de comparaison par la valeur 0 (opération fausse) ou la valeur 1 
(opération vraie). 

Cette caractéristique est exploitée couramment lors de l'affec¬ 
tation à une variable d'une valeur elle-même fonction d'une ou 
plusieurs autres variables. Un exemple d'application est fourni 
dans le programme "l'ardoise magique" aux lignes 110 et 120 : 

110 DX=(D=5)*-1+(D=8) 

120 ^ DY=(D=6)*-1+(D=7) 

En fonction de la valeur prise par la variable D, on obtient les 
quatre combinaisons suivantes pour DX et DY : 

Valeur de D Contenu de DX Contenu de DY 

5 -10 

6 0-1 

7 0+1 

8 +10 

Une autre écriture possible est la suivante : 

110 ^ DX=0 
114 ^ DY=0 

118 ^ D=5 THEN LET DX=-1 
122 ^ D=6 THEN LET DY=-1 

126 D=1 THEN LET DY=1 

128 ^ D=8 THEN LET DX=1 

... cette dernière solution occupe évidemment beaucoup de place 
en mémoire (142 octets contre 82 pour la version initiale !). 

La variable D ne pouvant prendre qu'une seule valeur à la fois, 
la comparaison "(D=5)" est soit vraie (valeur 1), soit fausse 
(valeur 0). Le produit obtenu en multipliant le résultat par un 
nombre n est égal à n si la comparaison est vraie ou à 0 si la 
comparaison est fausse. 


30 



LE PETIT LIVRE DU ZX81 


Cette astuce peut être utilisée dans le cadre des économies de 
place en mémoire. Imaginons un programme permettant de tester une 
variable : 

IF A0(i)="Y" 

Si cette expression doit être utilisée plusieurs fois au cours 
du programme, il est plus économique d'écrire : 

LET A=(A^(1)="Y") 

.,. puis de tester si la variable A contient la valeur 1 ou 0 
IF A THEN 

Il est évident que dans ce cas la variable A reflète le résultat 
du test au moment de l'affectation de la variable . Si le contenu 
de A^ est modifié, la variable A ne donne plus obligatoirement le 
résultat correct, à moins d'opérer une ré-affectation. 

Par conséquent, cette méthode peut être utilisée dans un sous- 
programme gérant une entrée du type "répondre par OUI ou NON" : 

8000 ŒSTTON D UNE REPOSE OUlA^W 
8010 PRINT "REPONDRE PAR OUI OU NCN" 

8020 INPUT Y$ 

8030 ^ y=CHR$ œOE Y$="0" 

8040 REIURJJ 

Ce sous-programme est suffisamment souple dans le contrôle de la 
réponse entrée à la ligne 8020 pour être adapté selon votre goût. 
L'essentiel est que le contenu de la variable Y reflétant la ré¬ 
ponse donnée (OUI ou NON) soit testée de la façon suivante : 

IF Y IHEN PRINT "MOUS AVEZ REPONDU OUI" (ou ce que vous voulez) 

ou 

IF NOT Y THEN PRINT "VOUS AVEZ TAPE NW" 

Ce sous-programme "coûte cher" en octets et ne trouve pas vraiment 
de justification s'il n'est appelé qu'une ou deux fois par le 
programme principal. Par contre, utilisé plusieurs fois il peut 
s'avérer rentable en termes d'occupation de mémoire, puisque la 
totalité de l'expression a déjà été évaluée (comparer les résultats 
obtenus pour les programmes de référence PRS et PR6). 

Note aux utilisateurs de ZX8 0 

Avec la ROM 4K d'origine, les opérateurs AND et OR utilisaient 
l'algèbre de BOOLE (les nombres entiers n'occupant que deux octets). 
Les mêmes astuces ne peuvent être employées avec la ROM 8K : en 
effet, les opérateurs AND et OR travaillent dans ce cas sur cinq 
octets et donne une valeur de 1 pour "vrai" (au lieu de -1). Remar¬ 
quez également que la valeur -1 n'indique plus que tous les octets 
sont à l'état 1. 


31 



LE PETIT LIVRE DU ZX81 


L'ETOILE FILANTE 

CAPACITE MEMOIRE NECESSAIRE : ÎK RAM 

Une étoile passe, essayez de l'arrêter en appuyant sur une des 
touches numériques (1 à 9). Il est facile de tout arrêter en uti¬ 
lisant la touche "9", mais l'intérêt du jeu consiste à obtenir le 
score le plus bas possible en se servant des touches correspondant 
à la valeur la plus basse possible ("3" ou "2") . Plus le score est 
bas, meilleur il est. Si vous ne réussissez pas avec une touche, 
essayez avec une touche correspondant à un chiffre supérieur. Ce 
jeu est difficilement réalisable sur un ZX80. 


10 PRINT AT 10,0;"*" 

20 FOR X=1 TO RND*50+25 
30 NEXT X 
40 FOR X=1 TO 10 

50 PRINT AT 10,(X-l)*3;" ";AT 10,X*3;"*" 

60 Z=CX»E INKEY$ 

70 IF Z Z-28>=X AND Z-28<10 THEN GOTO 110 
80 NEXT X 

90 PRINT AT 14,10; "RATE" 

100 GOTO 120 

110 PRINT AT 14,10;"SCORE:";Z-28-X 
120 PAUSE 4E4 

130 INKEY$<>"" THEN GOTO 130 
140 

150 RUN 
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PARTIE DE BASKET-BALL 
CAPACITE MEMOIRE NECESSAIRE : IK RAM 


Voici un nouveau programme 
qui va sans nul doute vous 
inciter à jouer... et à gagner ! 
Dans le cas présent, votre rôle 
consiste à mettre le ballon au 
panier. Le ballon apparaît en 
haut et à gauche de l'écran 
puis, quelques secondes après, 
amorce sa chute. Celle-ci est 
régie par un programme simulant 
la force de gravité. 

Appuyez sur la touche "8" pour 
propulser le ballon vers la 
droite ; plus vous appuyez sur la 
touche "8" et plus la force appli¬ 
quée au ballon est élevée. Rien 



ne vous empêche d'agir par tâtonnements en redonnant un "petit 


coup" sur la touche "8" de temps en temps. 


A chaque partie, la position du panier est modifiée, ce qui 
évite une maîtrise trop rapide du jeu une fois que l'on a "le 
compas dans l'oeil". 

Pour gagner, il suffit que le ballon heurte le panier. C'est ce 
que vous n'allez pas tarder à découvrir en disputant votre pre¬ 
mière partie ! 


La simulation de la force de gravité est créée entre les lignes 
200 et 260 du programme. D'autre part, le temps de chute est 
compté dans la variable Y. Pendant un temps t (temps écoulé depuis 
le point de départ), le ballon parcourt une distance égale à 32t^, 
Dans ce programme, un facteur 10 est appliqué à la variable Y pour 
que le jeu se déroule sur toute la surface de l'écran. 

5 CLS 


10 P=INT (RND*26)+5 
20 PRINT AT 21,P-1;"(-)" 
30 P=P*2 

40 X=0 

50 FOR Z=1 TO RND*50t50 


(positionne le panier 
(dessine le panier 
(définit la zone "touchable" 
(position horizontale 
(pause 
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60 UNPLOT 0,39 
70 PDOT 0,39 
80 NEXT Z 
90 N=0 

200 fm Y=0 TO 11 
210 INKEY$="8" THEN LEP N=N+1 
220 ^ X=X+N 
230 ^ X>63 THEN GOTO 400 
240 PLOT X,39-32*(Y/10)**2 
250 IF INKEY$="8" THEN LET N=N+1 
260 NEXT Y 

300 ^ ABS (P-X)<4 THEN PRINT AT 
310 PAUSE 150 

320 ^ INKEY$="" THEN GOTO 320 
330 

400 PRINT AT 18,6; "RATE" 

410 GOTO 310 


(fait disparaître et 
(réapparaître le ballon 

(élan du ballon 
(temps de chute 

(force modifiée ? 

(réactualise la force 
(sorti de l'écran ? 

(dessine nouvelle position du ballon 
(force de nouveau modifiée ? 

,15;"**HOURRAH **" (gagné ! 
("désensibilise" le clavier 
(touche appuyée ? 

(nouvelle partie 
(sorti de l'écran 


Si vous possédez un ZX80 équipé de la ROM 8K, modifiez le programme 
précédent de la façon suivante : 

Remplacez les lignes 50 à 80 par : 

50 PAUSE 4E4 
60 POKE 16437,255 

Ajoutez les lignes suivantes : 

255 PAUSE 25 

256 POKE 16437,255 

Remplacez les lignes 310 et 320 par : 

310 PAUSE 4E4 
320 POKE 16347,255 
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PARTIE DE GOLF 


CAPACITE MEMOIRE NECESSAIRE : 16K RAM 

Vous avez votre "club" bien en 
main ? Alors concentrez-vous sur 
le trou (symbolisé par un 0 en 
blanc sur fond noir) et ne ratez 
surtout pas la balle (X en blanc 
sur fond noir). La direction et 
la force du jet imprimé à la 
balle sont entrées aux lignes 
330 et 390. 

Ce programme utilise une routine 
permettant le traçage d'une ligne 
(se reporter au manuel Sinclair 
ZX81). Celle-ci a été adaptée pour 
les besoins de la cause ; elle per¬ 
met aussi bien de tracer que d'effacer 
la ligne. 



1 REM *** PARTIE DE GOLF*** 

10 QOSUB 4000 
20 

30 DESSIN DES LIMITES DU TERRAIN 
40 FAST 
50 QOSUB 2000 

100 L^ TROUX=INT (FND'^30)+1 
110 LET TROUY=IMT (FND*18)+1 
120 LCT BALLEX=IIfr (FND*30)+1 
130 ICT BALLEY=lNr (FND*18)+1 
140 IF BALLEX=TROUX ^ BALLEY=TROUY THEN GOTO 
150 ICT aOURS=0 
190 SLOW 

200 PRINT AT TROUY,TROUX; "O" 

210 PRINT AT BALLEY,BALLEX; "X" 

300 Rm BOUCLE PRINCIPALE 
310 QOSUB 3100 
320 PRINT "DIRECTION?" 


(donne règles du jeu 


(repère le trou 
(place la balle 


120 


(utilise un 
(utilise un 


"O" 

"X" 


inverse 

inverse 


(efface la ligne 20 
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330 INPUT XD 
340 GOSUB 3000 

350 ^ XD<0 OR XD>12 THEN GOTO 300 
360 PRINT XAB 22;XD 
370 GOSUB 3000 
380 PRINT "FORCE" 

390 INPUT XS 

400 XS=INT XS 

410 GOSUB 3000 

420 PRINT TftB 28;XS 

500 LET A='BALLEX*2 

510 ^ 8=1^ ((BALLEY*(-2))+42) 

520 ^ XD=(XD*(-1))+15 

530 ^ XD=12 THEN LET XD=0 

540 LET C=A+INT (OOS ((PI/6)*XD)*XS) 

550 D=B+INrr (SIN ( (PI/6) *XD) *XS) 

560 ^ XA=A 

570 I^ XB=B 

580 GOSUB- 1500 

590 I^ P=1 

600 GOSUB 1000 

610 PRINT Al' BALLEY,BALLEX; " 

620 I^ BALLEY=INr ( (D-42)/(-2)+0.5) 
630 LET BALLEX=INr ((C+0.5)/2) 

640 ^ OOUPS=OOUPS+1 

700 ^ BALLEX=TROUX mu BALLEY=<rROUY 

710 I^ A=XA 
720 ^ B=XB 
730 I^ P=0 
740 GOSUB 1000 
750 GOTO 200 
800 GOSUB 3400 
810 PRINT AT 20,0, -"REUSSI" 

820 PRINT "EN ";COUPS;" COUPS"; 

830 GOSUB 3500 

840 ^ INKEY$ ="" THEN GOTO 840 
850 CLEAR 
860 GOTO 20 


(efface la question 
(vérifie la direction 


(valeur entière de la force 
(efface la question 

(prépare la trajectoire 

(calcule la bonne direction 

(destination 

(destination 


(vérifie la nouvelle position 

(commande le traçage de la 

balle 

(trace la ligne 

(efface l'ancienne balle 

(calcule position de la nouvell€ 

balle 

THEN QOVO 800 
(balle dans le trou ? 

(efface la ligne 

(commande l'effacement 
(efface la ligne 

(affiche "PLOP" 

(message de victoire 

(affiche appréciations 
(attend une nouvelle partie 
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1000 LET U=C-A (voir le manuel Sinclair 

1010 LCT V=D-B 

1020 LOT D1X=SGN U 

1030 ^ D1Y=SGN V 

1040 ^ D2X=SQJ U 

1050 LET D2Y=0 

1060 ^ M=ABS U 

1070 N=AaS V 

1080 ^ M>N THEN GOTO 1130 

1090 ^ D2X=0 

1100 D2Y=SGN V 

1110 1^ M=ABS V 

1120 N=ABS U 

1140 ^ S=INT (M/2) 

1150 TOR 1=0 TO M 

1160 ^ P THEN PLOT A,B 

1165 ær P THEN UNPIXOr A,B 

1170 ^ S=S+N 

1180 ^ S<M THEN GOTO 1230 

1190 LET S=S-M 

1200 A=A+D1X 

1210 B=B+D1Y 

1220 NEXT I 

1230 ^ A=A+D2X 

1240 ^ B=B+D2Y 

1250 NEXT I 

1260 RETURN 

1500 Ra VERIFIE NOUVELLE POSITION EË LA BALLE 
1510 ^ ERREUR = (C<2 OR C>62 OR D<6 OR D>42) 

1520 ^ lOT ERREUR THEN RETURN 

1530 PRINT AT 21,0;"DANS L HERBE-PENALITE" 

1540 (X»UPS=œUPS+l 

1550 ^ C<2 THEN LET C=2 
1560 IF C>62 THEN LET C=62 
1570 ^ D<6 THEN LE! D=6 
1580 ^ D>42 THEN LET D=42 
1590 RETURN 

2000 Rjm DESSINE LIMITES DU TERRAIN 
2010 LET Y=43 
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2020 GOSUB 2100 
2030 ^ Y=4 
2040 GOSUB 2100 
2050 X=0 

2060 GOSUB 2200 
2070 LET X=63 
2080 GOSUB 2200 
2090 RËIURN 

2100 Rm DESSINE LIOSIE HORIZOSITALE 

2110 FOR X=0 TO 63 

2120 PLOT X,Y 

2130 NEXT X 

2140 RETURN 

2200 R^ DESSINE LIOSIE VERTICALE 

2210 FOR Y=4 TO 43 

2220 PLOT' X,Y 

2230 NEXT Y 

2240 RETURN 

3000 Rm EFFACE LA QUESTICN 

3010 PRINT AT 20,0;" <-20 espaœs-) 

3020 PRINT AT 20,0; 

3030 RETURN 

3100 RM EFFACE LIGNE 20 

3110 PRINT AT 20,0;" <-63 espaces-) 

3120 PRINT AT 20,0; 

3130 RET'URN 
3400 REM PLOP 

3410 IF TRDUX<2 THEN LET TROUX=2 
3420 ^ TROUX>29 THEN LET TROUX=29 
3430 PRINT AT TROUY,TROUX-2;"PLOP" 

3440 RETURN 

3500 REM APPRECIATIONS 

3510 ^OOUPS=1 THEN PRINT "-EN UN COUP"; 
3520 IFOOUPS=2 THEN PRINT "-PAS MAL. 

3530 IF COUPS <6 THEN GOTO 3590 

3540 IF COUPS<8 THEN PRINT "-PASSABLE"; 

3550 IF COUPS>7 THEN PRINT "-TRES MAUVAIS"; 
3590 PRINT 
3595 RETURN 
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4000 REM REGLES DU JEU 
4010 SLOW 

4020 PRINT UÆ 8; "PARTIE EË GOLF" 

4030 PRINT ,,"VOULEZ VOUS LES REGLES DU JEU?" 
4040 RAND 
4050 INPUT Y$ 

4060 ^ CHR$ CODE Y$<>"y" THEN RETURN 
4100 PRINT , , "LA BALLE EST REPRESENTEE PAR LN", 
"X, LE TROU PAR UN 0. VOUS DEVEZ", 
"ESTIMER LA DIRECITCN ET LA", 

"FORCE DU JET EË LA BALLE. " 

4110 PRINT " COMME LES AIGUILLES D UNE", 

"lOsITRE, LES DIRECTICNS VENT DE", 

"1 A 12. L EMPLOI DE VALEURS", 

"EËCIMAIiES (EX:2.6) EST POSSIBLE." 
4120 PRINT .. JL FAUT UNE FORCE DE 60 POUR", 
"LANCER LA BALLE D UN COTE A", 

"L AUTRE, DE 36 POUR LANCER LA", 
"BALLE DE HAUT EN BAS." 

4130 PRINT " APPUYER SUR UNE TOUCHE POUR", 
"JOUER UNE NOUVELLE FOIS." 

4140 PRINT , , "AMUSEZ VOUS BIEN." 

4150 PRINT ,, " (PRESSEZ UNE TOUCHE) " 

4160 PAUSE 4E4 
4170 POKE 16437,255 
4180 RETURN 
9900 SAVE "GOLF" 

9910 RUN 


Voici les modifications à apporter pour exécuter le programme 
sur un ZX80 : 

605 PAUSE 150 

840 PAUSE 4E4 

841 POKE 16437,255 
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JEUX DE CARACTÈRES 


BUT 

Ce sous-programme permet d'afficher un texte en caractères géants 
(format 8x8) sur l'écran. Il fait appel à l'instruction PLOT pour 
dessiner les lettres ; on peut ainsi "caser" huit caractères par 
ligne. 

L'écran ne comportant que 44 éléments d'image, vous avez droit 
en tout à cinq lignes (44/8=5 reste 4) ; les quatre éléments 

restants peuvent servir à ménager un blanc entre les lignes géantes. 

Imaginez l'effet produit en présentant de cette façon un programme 
dont on lance l'exécution : le titre du programme apparaît alors 
en lettres géantes sur votre écran ! 


FONCTIONNEMENT 


Ce sous-programme fait appel à la mémoire morte ROM 8K contenue 
dans le ZX81 (un générateur de caractères est situé à partir de 
l'adresse 7680). Bien qu'intéressantes, les explications contenues 
dans les paragraphes suivants ne sont pas strictement indispensables 
pour la compréhension du programme lui-même. Le lecteur ne connais¬ 
sant pas encore toutes les ficelles d'un microprocesseur Z80 peut 
donc choisir d'en faire abstraction pour le moment. 

Le générateur de caractères est une partie de la mémoire contenant 
le "dessin" de chaque caractère destiné à l'affichage sur écran. 
Chaque caractère affiché occupe une place mémoire de huit octets ; 
chaque octet correspond au dessin d'une rangée de points sur l'é¬ 
cran. Prenons par exemple la lettre "A". L'adresse du dessin géné¬ 
rateur de la lettre A est 7984 (voir ci-dessous pour plus de dé¬ 
tails) . Les huits octets placés à partir de cette adresse contien¬ 
nent les valeurs suivantes : 
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adresse contenu affichage sur l’écran 



décimal 

binaire 


7984 

0 

00000000 


7985 

60 

00111100 


7986 

66 

01000010 


7987 

66 

01000010 


7988 

126 

01111110 

^★★★★★★ 

7989 

66 

01000010 


7990 

66 

01000010 


7991 

0 

00000000 



Vous pouvez reconnaître la forme de la lettre A dans la dernière 
colonne. 

En règle générale, chaque dessin de caractère est obtenu à l'a¬ 
dresse calculée de la façon suivante : 

7680 + (code caractère ‘ * 8) 

... attention ! Ceci n'est valable que pour les caractères possédant 
un code compris entre 0 et 63. Tous les autres codes (codes supé¬ 
rieurs à 63) n'ont pas de signification ou correspondent à des 
combinaisons de caractères. Prenons par exemple le mot-clé RND : 
son code (64) donnera l'affichage simultané des lettres R, N et D. 


LE SOUS-PROGRAMME 


Que peut-on dire de ce sous-programme ? 

Il utilise le générateur de caractères tel que nous l'avons décrit 
ci-dessus pour dessiner des points sur l'écran. Le générateur oc¬ 
cupant une matrice de 8 x 8, vous comprenez aisément comme celle-ci 
peut être agrandie. 

Il y a cependant un problème à surmonter : comment connaître le 
contenu des bits à l'intérieur du générateur ? Le sous-programme 
dessine un point si le bit est à 1 et n'en dessine pas si le bit 
est à 0 (dans le tableau ci-dessus, nous avons représenté le bit à 
l'état 1 par un astérisque et le bit à l'état 0 par un point). 

Nous avons essayé deux versions de ce sous-programme dont aucune 
n'est particulièrement rapide ; cependant, dans le deuxième cas le 
temps d'exécution est sensiblement plus court. En revanche, la 
première version a le mérite d'être plus facile à suivre, puisqu' 
elle utilise la méthode conventionnelle pour isoler un bit d'un 
octet. 


41 




LE PETIT LIVRE DU ZX81 


Avant d'appeler le sous-programme, il convient de définir trois 
variables (nous rencontrerons plus loin un exemple d'application 
de la routine à l'intérieur d'un programme) : 

A0 variable alphanumérique contenant la chaîne de caractères 

à afficher en grand format. Elle comprend huit caractères 
au maximum (sinon le ZX81 arrête l'exécution en affichant 
le code erreur B). Les caractères doivent obligatoirement 
avoir un code compris entre 0 et 63. 

XX représente les coordonnées horizontales de l'élément 

d'image correspondant au premier caractère de la chaîne. 

YY représente les coordonnées verticales de 1'élément d'ima¬ 

ge correspondant au premier caractère de la chaîne. 
Remarquez que le chiffre 43 représente le haut de l'écran 
alors que le chiffre 0 représente le bas. 


Version 1 - la plus facile (?) à comprendre mais la plus lente 


9300 REM DESSINE EN CARACTERES GEANTS 


9305 TOR A=1 TO LEN A$ 

9310 XC=OQDE A$ (A) 

9315 GQSUB 9340 
9320 XX=XX+8 

9325 NEXT A 
9330 RETURN 

9340 FOR Y=YY TO YY-7 STEP -1 


(pour chaque caractère 
(donne le code du caractère 
(imprime en 8 x 8 

(position suivante sur l'écran 
(lettre suivante 
(sortie-exécution terminée 
(8 rangs de haut en bas 


9345 RANG=EEEK (7680+8*XC+YY 
9350 SHR=128 

9355 FOR X=XX TO XX+7 
9360 ^ Z=INT (RANG/SHR) 

9365 RANG=RANG-Z*SHR 
9370 ^ SHR=SHR/2 
9375 IF Z THEN PLOT X,Y 
9380 NEXT X 
9385 NEXT Y 
9390 RETURN 


•Y) (cherche dessin du rang dans ROM 
(valeur initiale du masquage de bit 
(pour chaque bit du rang 
(met état du bit dans Z 
(écarte ce bit 

(donne masquage du bit suivant 
(dessine si bit est à 1 
(dessin du bit suivant 
(rang suivant 
(caractère complet 
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La version 2 est basée sur le même principe. Les calculs effec¬ 
tués par le ZX81 étant lents, cette deuxième méthode emploie au 
maximum les chaînes de caractères (utiliser la virgule flottante 
sur cinq octets au lieu de se contenter des valeurs entières revient 
exactement au même que d'assommer une mouche avec un pilon !). Ici, 
le masquage des bits n'est plus obtenu par l'intermédiaire d'une 
variable numérique, mais grâce à une chaîne de caractères dont les 
codes représentent les bits à masquer : 128, 64, 32, 16, 8, 4, 2, 

1 . 

Cela implique que la mise en pratique est plus facile avec des 
caractères qu'avec des nombres ; en réalité, l'exécution n'en est 
pas accélérée pour autant. 


Version 2 - plus rapide mais pleine d * embûches 


9300 DESSINE HSf CARACTERES GEANTS 

9305 LET Z$=" " (voir plus bas 

9310 Im A=1 TO LEN A$ 

9315 ^ XC=OCCS A$ (A) 

9320 GOSUB 9340 
9325 XX=XX+8 

9330 NEXT A 
9335 RETURN 

9340 FOR Y=YY TO YY-7 STEP -1 

9345 LET X$=CHR$ (PEEK (7680+8*XC+YY-Y)) 

9350 FOR X=1 TO 8 

9355 ^ X$<Z$(X) THEN GOTO 9370 

9360 PLOT XX+X-1,Y 

9365 X$=CHR$ (GODE X$-CODE Z$ (X) ) 

9370 NEXT X 
9375 NEXT Y 
9380 ROIORN 
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Dans le sous-programme présenté ci-dessus, la ligne 9305 met 
dans la variable la chaîne de caractères permettant le masquage 
des bits. Les caractères de cette chaîne sont : 


128 espace "inversé" 
64 RND 
32 4 

16 ( 

8 carré gris 
4 1/4 de carré 

2 " " 

1 


GRAPHICS/SPACE 

FUNCTIOÎ/T 

4 

( 

GRAPHICS/SHIFT/A 

G[RAreiCS/SHIFr/4 

GRAPHICS/SHIFr/2 

GRAPHICS/SHIFT/l 


Cette chaîne de caractères qui semble plutôt bizarre (elle n'est 
pas utilisée de façon habituelle) nous permet d'éviter l'utilisa¬ 
tion des opérateurs de BOOLE et des variables entières. 


EXEMPLE D'APPLICATION 


Dans quel contexte utiliser ce sous-programme ? 

Voici un exemple d'utilisation. Le message HELLO va être imprimé 
en lettres géantes au centre de l'écran : 


100 Bm IMPRIME HELLO EN CARACTERES GEANTS 
110 LÉT A$="HELIjO" (message à imprimer 

120 LET XX=12 (coordonnée horizontale 

130 LEP YY=26 (coordonnée verticale 

140 GQSUB 9300 (appelle le sous-programme 

150 SIOP (voyez le résultat ! 


Il va de soi qu'une des deux routines présentées plus haut (de 
préférence la seconde) doit être ajoutée au programme pour que 
celui-ci puisse fonctionner. 
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L'ARDOISE MAGIQUE 

CAPACITE MEMOIRE NECESSAIRE : IK RAM 


Peut-être était-ce l'un de vos 
jouets favoris quand vous étiez 
petit ? Nous vous proposons ici 
une variante qui vous permettra 
de réussir quelques esquisses inté¬ 
ressantes . 

Un seul inconvénient : l'ordina¬ 
teur (pas plus que le jouet) n'est 
capable de dessiner des courbes par¬ 
faites . 

Utilisez les touches de déplace¬ 
ment du curseur "5" et "8" (sans 
appuyer sur la touche SHIFT), pour 
dessiner un trait dans n'importe 
quelle direction. Pendant que vous 
appuyez sur la touche, le trait se 
dessine. 

A tout moment, vous pouvez appuyer 
sur la touche "0" (libellée RUB OUT, 
de l'anglais gommer) pour effacer l'écran ; le curseur reste 
alors à la même place. Si vous désirez par exemple démarrer votre 
esquisse du coin en haut et à droite, utilisez le processus sui¬ 
vant : déplacez le curseur jusqu'à l'endroit choisi comme point de 
départ puis appuyez sur la touche "0" pour effacer l'écran. 

Notez le contenu de la ligne 30 du programme : celle-ci consulte 
la variable-système RAMTOP pour voir si l'extension 16K RAM est en 
place. Sans cette extension, la variable contient la valeur 68 
(68*256=17408, nombre correspondant à l'adresse du dernier pas de 
mémoire - 16384+1024). Si une valeur supérieure à 68 est détectée 
il convient de brancher l'extension mémoire 16K ou 4K (seule l'ex¬ 
tension, 4K ram était vendue avec le ZX80 au début de sa commercia¬ 
lisation) . 

Muni de l'extension mémoire, vous pouvez occuper sans problème 
la totalité de l'écran. Dans le cas contraire, il convient de déli¬ 
miter une portion plus restreinte de l'écran pour éviter l'affichage 
du code erreur 4. 
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10 MX=64 

20 MY=44 

30 ^ ?EEK 16389<69 THEN LET 
40 X=NOT MX 

50 Y=MY-1 

100 ^ D=CDDE INKEY$-28 

110 ^ DX=(D=5)*-1+(D=8) 

120 ^ DY=(D=6)*-1+(D=7) 

130 ^ NOT D THEN CLS 

140 ^ INT ((X+DX)/MX) OR INT 

150 ^ X=X+DX 
160 ^ Y=Y+DY 
170 PLOT X,Y 
200 GOIO 100 


(largeur maximum de l'écran 
(hauteur maximum de 1'écran 
MY=23(extension 16K ? 

(point de départ = 0. 

(point de départ = MY 

(donne le code de la touche 
(calcule direction X 
(calcule direction Y 

(efface si touche pas appuyée 
( (Y4-DY) /MY) THEN GOTO 200 
(sur l'écran ? 

(modifie position X 
(modifie position Y 
(dessine un nouvel élément 
(continue... 


Ceux qui possèdent le ZX80 équipé de la mémoire morte ROM 8K 
doivent ajouter les trois lignes suivantes pour pouvoir observer 
l'écran pendant l'exécution du programme : 

135 IF NOT DX AND NOT DY THEN GOTO 210 (pas de touche appuyée 

210 PAUSE 4E4 (affichage écran 

220 GOTO 100 

Modifier également la ligne 30 de la façon suivante : 

30 ^ PEEK 16389<69 THEN LET MY=22 

Tant que vous appuyez sur une touche, l'écran reste blanc ; dès 
que vous relâchez cette touche, votre oeuvre d'art apparaît sur 
l'écran ! 
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CREATION D'UN FICHIER D'INDIVIDUS 
CAPACITE MEMOIRE NECESSAIRE : 16K RAM 


Si vous aimez les jeux de guerre 
et que vous ayez des problèmes de 
figurants, le programme suivant 
vous conviendra parfaitement. 

Chercher des noms différents i 

pour chaque personnage est un I 

travail peu intéressant où l'in- I 

novation figure rarement. Vous I 

allez être sauvé par ce program- 1 
me qui crée tout un fichier de 
noms d'individus (plus ou moins 
recommandables !) avec, en prime, 
leur activité et leurs particula¬ 
rités (Quotient Intellectuel (ou 
QI), FIDélité, FORce, DEXtérité, 

COMbativité, FIAbilité et Richesse). 

Que désirer de plus ? 

La structure de ce programme permet 
une adaptation rapide à tous les jeux. Les lecteurs préférant 
jouer aux cow-boys et aux indiens modifieront aisément les chaînes 
alphanumériques contenant les différents critères. 

Ceux qui possèdent une imprimante sont nettement avantagés ; ils 
peuvent imprimer les caractéristiques de tel ou tel personnage 
intéressant en utilisant la commande COPY . Vous pouvez à votre 
gré garder ou éliminer les fiches des personnages qui ne vous 
conviennent pas. 

Les paramètres grandeur et poids de chaque personnage sont cal¬ 
culés d'après des tables figurant dans le sous-programme d'initia¬ 
lisation. Le programme contrôle la grandeur et le poids pour évi¬ 
ter de créer un nain de cent kilos ou un géant de cent grammes ! 

La sélection du type d'activité des personnages créés est liée 
à leurs particularités (toujours pour ne pas créer de non-sens). 

La probabilité de créer un Sorcier-Guerrier est assez faible. 

Tous les noms des personnages contenus dans la variable alpha¬ 
numérique F^ sont séparés par une barre oblique (/). Les surnoms 
de ces personnages sont stockés de la même manière dans S^. Deux 
autres variables NF et NS contiennent respectivement le nombre de 
noms et de surnoms. Si vous désirez ajouter d'autres noms à la liste 
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proposée, n'oubliez pas de modifier le contenu des variables NF et 
NS en conséquence (lignes 9310 et 9320). 


1 FICHIER PERSONNAŒS 

2 REM **************»»*»¥ 

10 FAST 

20 DIM T$(4,14) 

30 T$ (1) = "GUERRIER" 

40 LET T$(2)="SORCIER" 

50 T$(3) = "VOYOU" 

60 LCT T$ (4) = "SORCIER-GUERRIER" 
70 A$="IDRQI.FIDDEXGOMFIARIC" 
80 RAND 
90 GOS'JB 9300 
100 O0TE=0 
110 Dm A(9) 

120 FOR X=1 TO 8 

130 GOSUB 8100 

140 IF X>3 THEN GOTO 170 


(types de personnages 


(caractéristiques 

(initialise le tableau 

(réinitialise la cote des 
personnages 
(caractéristiques 
(crée 8 caractéristiques 
(jette 3 dés 

(contrôle les 1ères çarac- 
téristiques 


150 IF A(X)>12 THEN LET OOTE=OarE+A (X) -12 (incrémente la cote 
160 m A(X)<9 THEN LET COTE=OOTE+A (X)-9 (ou la décrémente 
170 NEXT X 


180 ^ X=9 
190 GOSUB 8100 

200 m ABS (A(8)-A(9))>3 THEN GOTO 180 
210 T=1 

220 FOR X=1 TO 5 
230 IF A(X)<12 THEN GOTO 270 
240 NEXT X 
250 1^ T=4 
260 GOTO 500 

270 IF A(2)<10 OR A(5)<8 OR A(l)<8 THEN GOTO 290 

(sorcier nécessite QI.^=10 

280 ^F A(2)>A{3) AND A(2)>A(1) THEN LET T=2 (sorcier 
290 ^ A{1)>A(2) Aî® A(1)>A(3) THElxi LET T=I (guerrier 
300 ^ A(3)>A(1) OR A(3)>A(2) THEN LET T=3 (voyou 
500 LET A(7)=A(7)*10 


(génère le poids 
(jette 3 dés 

(assure compatibilité hau¬ 
teur/poids 
(c'est un guerrier 
(est-ce un sorcier-guerrier 


(ciel ! un sorcier-guerrier 


510 

520 ^ A(8)=A(8)-2 
530 ^ A(9)=A(9)-2 


(richesse 

(hauteur = 1 
(poids = 1 à 


à 16 
16 
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600 QOSUB 8000 
610 PRINT 

620 PRINT "TYPE:";T$(T) 

630 FOR X=0 TO 6 

640 PRINT A$(X*3+l TO X*3+3);" :" 

650 NEXT X 

660 PRINT "HAUr:";INT (H(A{8))/12) 
H(A(8))-INT (H{A(8))/12)*12 
670 PRINT "PDS :";W(A(9));"LIVRES" 
680 PRINT 

690 PRINT "COTE:";OOTE 
700 PAUSE 250 
710 POKE 16437,255 
720 ^ INKEY$="" THEN GOTO 100 
730 STOP 
740 GOTO 100 
8000 REM CHOIX DU NCM 
8010 I^ N=INT (RND*NF)+1 
8020 ^ D$=F$ 

8030 GOSUB 9000 
8040 PRINT "NCM 
8050 LET N=INrr (RND*NS)+1 
8060 ^ D$=S$ 

8070 GOSUB 9000 
8080 PRINT W$ 

8090 RETURN 
8100 RH4 JETTE 3 DES 
8110 LET A(X)=0 
3120 FOR Y=1 TO 3 
8130 A(x)=A(x)+nTr (end*6)+i 

8140 NEXT Y 
ol50 RETURN 
9000 R^ MET N-IEME MOT DE D0 D?NS 
9005 ^ XW=0 
9010 W$="" 

9015 FOR X=1 TO N-1 

9020 LCT XW=XW+1 

9025 IF XW>LEN D$ THEN RETURN 

9030 IF D$(XW)<>’7" THE\ GOTO 9020 


(crée et imprime le nom 


A(X+1) (caractéristiques 

"PIEDS"; 

"POUCE(S)", (hauteur 

(poids 

(cote du personnage 
(présente le personnage 

(autre personnage si pas de tou¬ 
che appuyee 

(arrêt momentané 
(crée un nouveau personnage 


(extrait le nom N de 
(affiche ce nom 
(choisi un surnom 


(affiche le surnom 


(valeur initiale 
(additionne les valeurs 


(voir chapitre 3 


49 



LE PETIT LIVRE DU ZX81 


9035 NEXT X 

9040 LCT XW=XW+1 

9045 ^ XW>LEN D$ THEN RETURN 

9050 ^ D$(XW)="/" THEN RETU.RN 

9055 ^ W$=W$+D$ (XW) 

9060 GOTO 9040 

9300 REM LISTE DES NOB (Sous-programme d'initialisation 

9301 NF=NOMBRE DE NO^B 

9302 REM NS=Na4BRE DE SURNOMS 

9304 REM F$=NOMS 

9305 REM S$=SURNOMS 

9310 NF=15 

9320 ^ NS=25 

9330 ^ F$="AR'IHUR/PIERRE/PAUL/YVAN/JEAN/ 

tommy/Max/pierrcdt/jules/trevdr/ 

B0B/J0/ERICA)EDE/JEHAN" 

9340 ^ S$="LE ROUŒAE TOUT-PUISSANT/LE PIEUX/LE CRUEL/ 

LE RENARD/LE BAGARREUR/LE SIMPLET/LE VOLEUR/ 

LA TERREUR/LE GRAND/LE MAGNIFIQUE/GAOŒPETIT/ 

LE K)U/SANS PEUR/LE BRAVE/LE SANGUINAIRE/ 

DE NANTERRE/LE VAGABOND/L ENRAGE/LE TIMIIE/ 

L EFFROSITE/OEIL DE TAUPE/LE TRICHEUR/ 

NEZ CASSETERRIBLE" 

9350 DIM H(16) (Crée la table de hauteur 

9360 FOR X=1 TO 16 

9370 ^ H(X)=1NT (48,5+((X-1)*2.5)) 

9380 NEXT X 

9390 DIM W(16) (Crée la table de poids 

9400 W$="075090105120135150160170180190200225250280310350" 

9410 FOR X=1 TO 16 

9420 W(X)=VAL (W$((X-1)*3+1 TO (X-1)*3+3)) 

9430 NEXT X 
9500 ŒS 

9510 PRINT "FICHIER PERSCNNAGES" 

9515 PRINT 

9520 PRINT "CHAQUE PERSœiNAGE VOUS EST ", 

"PRESENTE QUELQUES SECONDES. SI", 

"VOUS DESIREZ ETUDIER UN INDIVIDU", 

"PLUS LONGTEMPS, PRESSEZ UNE ", 

"TOUCHE CELA ARRETE LE", 

"PROGRAMME (SI VOUS AVEZ UNE", 

"IMPRIMANTE, UTILISEZ LA", 

"OONMANDE OOPY)." 

9540 PRINT ,,"(PRESSEZ UNE TOUCHE) " 

9550 PAUSE 40000 
9560 PCKE 16437,255 
9590 RETURN 
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TRUCS ET ASTUCES 


Ce chapitre a pour but de présenter quelques "trucs" glanés ça 
et là au hasard des programmes. En réalité, il n'est question ni 
d'auxiliaires indispensables de la programmation, ni d'astuces 
époustouflantes pour sauvegarder de la place en mémoire. 

Ces quelques idées toutes simples ont juste le souci de rendre 
la programmation parfois plus agréable, particulièrement sur le 
ZX81 . 


PAU S E INFINIE 

Vous rencontrerez souvent l'utilisation de cette astuce dans les 
exemples de programme proposés. 

D'après la notice Sinclair, l'emploi de l'instruction PAUSE as¬ 
sociée à une valeur numérique supérieure à 32767 déclenche une 
pause qui se poursuit à l'infini. L'exécution de la suite du pro¬ 
gramme est alors obtenue en appuyant sur une touche quelconque. 

Cette instruction est particulièrement utile pour les utilisa¬ 
teurs de ZX80 équipés de la ROM 8K ; en effet, ce dispositif ne 
permet pas l'affichage sur écran pendant l'exécution d'un programme. 
Aussi, toutes les possibilités de l'instruction INKEYS ne peuvent- 
elles être utilisées. Cette remarque ne concerne pas le ZX81, sauf 
si le programme est exécuté en mode rapide. 

Dans ce cas, le programme devra contenir une ligne du type : 

200 PAUSE 33000 

Comme pense-bête (pas si bête que ça !), on peut utiliser 
l'expression : 

200 PAUSE 4E4 

... ceci pour deux raisons : cette écriture occupe un peu moins 
de place en mémoire et constitue un moyen mnémotechnique (pour les 
anglophiles ! Four-i-four^i^Forever) . 
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Souvenez-vous que la notation scientifique est tout à fait auto¬ 
risée avec le Basic du ZX81 ; l'expression 4E4 correspond à 40000 
(chiffre supérieur à 32767). 


FIN D'UN PROGRAMM E 

Il est question ici d'un autre de nos "dadas" : en effet, il est 
souvent préférable de terminer un proqramme avec un message de 
reconnaissance, plutôt qu'avec un 0/375 affiché en bas de l'écran. 
Pour cette raison, la ligne : 

9999 STOP 

est insérée à la fin d'un programme ; quel que soit le moment 
choisi pour terminer le programme, il suffit de taper : 

... GOTO 9999 

Quand le programme rencontre cette ligne, le message 9/9999 s'af¬ 
fiche en bas de l'écran ; celui-ci indique que tout est "O.K.". 

Tout autre code erreur ressort plus facilement quand vous attendez 
l'affichage de 9/9999. 

La plupart des programmes menés en mode conversationnel (INPUT...) 
sont interrompus purement et simplement en appuyant sur la touche 
BREAK. Ceci a pour conséquence l'affichage du code erreur D, comme 
vous pouvez vous y attendre. 


INSTRUCTION REM 


Un des plus gros problèmes à surmonter quand on reprend les 
programmes de quelqu'un d'autre est de comprendre leur structure. 
On peut passer un temps fou à essayer de "saisir" un passage 
complexe. 

Une grande partie des programmes que vous avez écrits, ou que 
vous écrirez, est destinée à l'oubli. Dans le meilleur des cas, 
ceux-ci seront remplacés par des versions améliorées. 

Pourquoi ? Parce que la plupart sont conçus pour tester une 
idée et ne méritent pas une perte de temps importante. C'est une 
autre histoire si vous écrivez des programmes destinés à durer ; 
peut-être même en donnerez ou en vendrez-vous à des amis. 

Il devient alors très important de passer du temps à préciser 
les fonctions de chaque étape du programme pour que celui-ci soit 
plus facile à comprendre. 

L'instruction REM permet d'annoter les différentes étapes d'un 
programme, ce qui le rend plus facile à suivre. L'emploi de cette 
instruction est conseillé dans les situations suivantes : 
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a- au début de chaque programme pour définir la finalité de 
celui-ci , 

b- à chaque portion "logique" du programme (bôucle principale, 
initialisation, section finale, etc...), 
c- avant chaque passage particulièrement complexe du programme 
afin de souligner brièvement son fonctionnement. 

Attention ! Avec le ZX81 IK RAM, la place en mémoire est comptée 
elle ne permet pas cette consommation superflue d'octets. 

L'écriture de la plupart des programmes nécessite un déploiement 
important d'astuces pour tout "caser" dans moins d'iK de mémoire, 
alors pour ce qui est des annotations... 

Nous avons essayé de résoudre ce problème en émaillant les pro¬ 
grammes présentés de commentaires adéquats. 

Si votre programme vous le permet, essayez quand même d'utiliser 
une instruction REM. 

Si l'extension 16K RAM est branchée, les économies de place en 
mémoire rentrent moins en considération. Vous pouvez vous permettre 
d'être prolixe avec les instructions REM ; cela ne prend que quel¬ 
ques minutes supplémentaires pour les entrer et n'a pas d'effet sur 
le déroulement du programme. 

Remarquez que dans la plupart des programmes présentés dans ce 
livre, les instructions REM sont réduites à leur strict minimum ; 
ceci non seulement pour ne pas faire double emploi avec les anno¬ 
tations parallèles, mais encore pour éviter un volume de frappe 
trop important. 


CASSETTES 


Au cas où vous ne le sauriez pas encore, des cassettes C 12 sont 
disponibles dans la plupart des boutiques informatiques. Ce type 
de cassettes est beaucoup plus adapté aux besoins de la programma¬ 
tion que les C 60 ou C 90. 

En effet, il peut être extrêmement ennuyeux d'attendre que la 
cassette ait fini de s'enrouler d'un bout à l'autre de la face ; 
plus la durée de la cassette est courte, moins vous avez à patien¬ 
ter. 

Peut-être serez-vous tenté de stocker tous vos programmes sur 
une même cassette ? Résistez à la tentation ; trois ou quatre 
programmes par face sont largement suffisants. Le stockage d'une 
quantité supérieure peut donner lieu à une perte de temps impor¬ 
tante si le programme désiré est le dernier. 

Il est beaucoup plus agréable d'avoir une "programmathèque" 
rangée et étiquetée soigneusement. Il faut ménager ses effets 
auprès d'éventuels spectateurs ! Rien n'est plus énervant, lors 
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de la présentation d'un programme à un ami, que de s'excuser avec 
des "il y en a pour une minute" ou "j'y suis presque" ! 

Le modèle original du ZX80 ne permettait pas la sauvegarde ou le 
chargement d'un programme accompagné d'un libellé. De ce fait, 
combiner plusieurs programmes sur une même face de cassette rele¬ 
vait de l'acrobatie. A juste titre, on conseillait alors aux uti¬ 
lisateurs de ZX80 de sauvegarder un seul programme par face. 

Ceux qui ont acquis l'extension ROM 8K ont maintenant la possi¬ 
bilité de "nommer" leurs programmes. Ils peuvent ainsi les grouper 
sur une seule face en conservant une certaine facilité d'accès. 


SAUVEGARDE DES VARIABLES 


Pour sauvegarder un programme comportant plusieurs variables 
pré-affectées, il faut insérer un sous-programme "chargement- 
exécution" dans le programme principal. Celui-ci sera automatique¬ 
ment exécuté dès que le chargement en mémoire (à partir de la cas¬ 
sette) sera terminé. Ce procédé évite de taper RUN par erreur et 
d'effacer toutes les variables consciencieusement "mises à l'abri". 

Un exemple de sous-programme "chargement-exécution" se trouve à 
la page 110 du manuel Sinclair. 

Vous rencontrerez un autre exemple dans ce livre avec le "sous- 
programme de chargement" du "Jeu de l'aventure" (page 115). 


CHARGEMENT DES PROGRAMMES 


Dans les débuts du ZX80, une grande quantité de propos contradic¬ 
toires furent échangés à propos des problèmes inhérents au chargement 
des programmes. Certains trouvaient cette opération très hasardeuse, 
alors que d'autres ne se heurtaient à aucun problème particulier. 

Comme dans bien des cas, si vous respectez soigneusement les 
instructions du chapitre 16 de la notice Sinclair, vous serez assuré 
une fois la mise au point effectuée de la fiabilité de cette opé¬ 
ration. 

Vous avez peut-être découvert à vos dépens un problème qui n'a 
pas été signalé par le fabricant : l'enregistrement des programmes 
sur un magnétophone stéréo amène souvent des anomalies. 

Si les têtes du magnétophone stéréo servant à l'enregistrement 
sont mal alignées, un décalage de phase peut se créer entre les 
deux canaux quand on utilise un matériel différent pour la lecture 
(ou le même matériel si l'alignement est particulièrement mauvais). 

Vos oreilles ne décèleront rien ; en effet, celles-ci sont inca¬ 
pables de détecter le plus petit décalage de phase. Par contre, 
votre ZX81 en est parfaitement capable ! 
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Le remède est simple : si vous utilisez un système stéréo, enre¬ 
gistrez sur un seul canal (de préférence le canal de gauche qui 
est le canal extérieur , ce qui réduit les interférences). Vous réa¬ 
liserez probablement vous-même qu'il est plus simple d'utiliser un 
enregistreur portable bon marché. 


A PROPOS DES CHAINES DE CARACTERES 


Le Basic du ZX81, aussi complet soit-il, souffre de quelques 
petites imperfections. Une de celles-ci est l'affichage systémati¬ 
que (ô combien embêtant !) du code erreur 3 si le programme essaye 
d'isoler une partie inexistante d'une chaîne de caractères. 

Les deux lignes : 

LET A^="ABCDE" 

PRINT A^(6) 

provoqueront l'affichage du code erreur 3. En effet, la variable 
alphanumérique ne contient que cinq caractères. Il aurait été 
préférable d'avoir l'affichage d'une "chaîne vide", mais on ne peut 
pas tout avoir. 

Si votre programme est écrit pour extraire le premier caractère 
d'une chaîne, l'erreur 3 peut être évitée en tapant : 

CHR$ œEE 

En effet, l'instruction œEE fournit le code du premier caractère. 
Si la chaîne est "vide", le code obtenu est zéro. 

Dans ce cas la ligne suivante devient inutile : 

IF im X^=0 THEN .... 

Si vous désirez obtenir un caractère particulier à l'intérieur 
d'une chaîne, introduisez la ligne : 

CHF^ œEE X^(n TO ) 

Celle-ci vous évitera l'affichage du code erreur 3 si n>=l. 


ECONOMISONS LA MEMOIRE 

Le chapitre "Optimisation des programmes" vous a déjà sensibilisé 
sur ce problème primordial ; celui-ci mérite quelques approfondis¬ 
sements supplémentaires. 

Une ligne du type : 

IF xxxx 0 THEN .... 
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peut être avantageusement remplacée par : 

IF xxxx THEN .... 

En effet, le ZX81 considère une valeur différente de zéro comme 
étant "vraie". 

De même une ligne du type : 

IF xxxx = 0 THEN .... 
peut être remplacée par : 

IF NOT xxxx IHEN .... 

Ces deux méthodes ralentissent l'exécution d'un programme mais 
permettent d'économiser de la place en mémoire. 

Ne perdez pas de vue qu'il s'agit de tirer le maximum des possi¬ 
bilités du ZX81 et non de gagner un concours récompensant le pro¬ 
gramme le plus compliqué ! 

Un autre ordinateur ne comprendrait pas obligatoirement les lignes 
présentées ci-dessus. Aussi, soyez prudent avant d'inférer que 
votre programme peut fonctionner sur n'importe quel ordinateur. 


ENTREE DES EXPRESSIONS 


Le ZX81 possède une particularité importante qu'il ne faut pas 
négliger : n'importe quelle expression valable (c'est-à-dire du 
type demandé) peut être entrée par l'intermédiaire de l'instruction 
INPOT. 

Cette particularité est mise à profit dans le programme "calcul 
d'un Ecart-Type" où le mot FIN est entré derrière les données numé¬ 
riques pour signifier la fin de la liste. 

Comment est-il possible d'entrer un mot alors que l'ordinateur 
attend des valeurs numériques ? 

La valeur 1E38 ayant été préalablement affectée à la variable 
FIN au cours du programme, celle-ci est acceptée par l'instruction 
INPUT en tant que valeur numérique (la valeur 1E38 a peu de chance 
d'être entrée en tant que donnée). 

Le ZX81 serait tout aussi satisfait avec une valeur telle que 
25*3.555/6. 

Le même procédé est applicable aux chaînes de caractères. Toute 
variable alphanumérique préalablement affectée peut être entrée 
par l'intermédiaire de l'instruction INPUT. Dans ce cas, il est 
nécessaire de "gommer" les guillemets que le ZX81 met d'office 
pour les opérations d'entrée de chaîne. Le meilleur moyen consiste 
à appuyer sur la touche EDIT (SHIFT/l) qui efface toute donnée 
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venant d'être tapée. 


UTILISATION DE L’EXTENSION 16K 


La plupart des programmes présentés dans ce livre ont été conçus 
et expérimentés avec l'extension 16K RAM, puis éventuellement 
adaptés à la version IK RAM. 

Malheureusement, un programme créé avec l'extension 16K et sauve¬ 
gardé en conséquence ne peut être chargé sur la version IK sans 
difficulté. En effet, la routine de gestion de l'écran fixe le nom¬ 
bre de lignes affichées à 24 quand le ZX81 possède plus de 3.75K 
de mémoire utilisateur ; pour cette raison, un programme occupant 
juste IK sur la version 16K RAM ne peut être chargé sur la version 
de base du ZX81. 

Si vous désirez plus tard utiliser la version de base pour faire 
tourner un programme mis au point sur 16K, prenez la précaution 
avant de le sauvegarder sur cassette de taper en mode direct les 
commandes suivantes : 

PCKE 16388,0 

PQKE 16389,68 

CLS 

Les deux premières lignes fixent la variable système RAMTOP à la 
valeur 17408 (pour la version IK). La commande GIS sert à réduire 
au maximum le nombre de lignes gérées sur l'écran. 

Ces quelques précautions étant prises, votre programme devrait 
être maintenant utilisable sur le ZX81 version IK ; sinon, c'est 
un autre problème. 


PRECISION DES CALCULS 


Comme la plupart des ordinateurs, le ZX81 est incapable de mani¬ 
puler des nombres sans les entacher d'erreur. 

L'homme compte en base 10 pour l'excellente raison que les doigts 
de la main constituent la meilleure machine à calculer qu'il ait 
jamais inventée. 

Cependant, le système décimal ne permet pas la représentation 
exacte de certains nombres, par exemple It' (PI) ou racine de 2 
(SQR(2)). Ces nombres sont dits irrationnels . 

L'ordinateur a le même problème, bien que les nombres dont il 
ne peut donner la représentation exacte soient de nature différente 
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en effet, dans son cas, les calculs sont effectués en base 2 et non 
en base 10. 

Ceci provoque l'apparition intéressante (mais souvent gênante) 
d'erreurs dans la partie fractionnaire du résultat des opérations 
(principalement dans le cas de la division). La commande PRINT 
arrondit à l'occasion ces petites erreurs ; méfiez-vous quand même 
de certaines énormités qui peuvent se glisser dans vos calculs au 
moment où vous vous y attendez le moins. 

Pour vous en convaincre, faites exécuter les deux lignes suivan¬ 
tes : 

LET V=100*0.15 

PRINT V,INT,V 

Le contenu logique que l'on est en droit d'attendre pour la 
variable V est égal à 15, ce qui se vérifie. On pourrait s'atten¬ 
dre à obtenir la même valeur après séparation de la partie entière. 
Surprise ! C'est le nombre 14 qui est affiché. 

En effet, l'instruction PRUTT arrondit la valeur réelle de V qui 
est 14.9999... 

Vous pensez probablement que l'imprécision du calcul va être 
mise en évidence par l'exécution de la ligne suivante : 

PRINT V-INT V 

peine perdue, car l'instruction PRINT arrondit de nouveau le résul¬ 
tat (0.99999999) et affiche la valeur 1- 

Dans ce cas particulier l'erreur peut être évitée en écrivant 
l'opération sous la forme : 

LET V=100*15/100 

Le remplacement du nombre décimal (0.15) par la fraction équiva¬ 
lente (15/100) donne une précision accrue puisque les nombres mis 
en jeu sont plus importants. 

Si vous êtes amené à écrire des programmes de calculs financier, 
statistique ou mathématique, ces petits ennuis deviennent vite de 
vrais casse-tête. Chacune de ces erreurs de précision ayant son 
remède particulier, il est difficile de donner une solution univer¬ 
selle . 

Un conseil cependant : les résultats obtenus sont généralement 
plus précis si vous veillez dans la mesure du possible à ce que 
les multiplications précédent les divisions. Cette méthode est 
parfois employée avec les calculatrices pour éviter une perte de 
précision ; en cela, le ZX81 n'est pas bien différent. 
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*** RECREATION *** 

Voici un tout petit prograimne qui se contente de dessiner de jolis 
motifs. La version ZX81 IK RAM est amplement suffisante. 


10 TOR X=0 TO 9999 
20 SCROLL 

30 LCT Z=SIN (X*PI/10)*15 

40 PRINT AT 21,16-Z;"*";AT 21,16+Z;"*" 

50 NEXT X 
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L'HORLOGE NUMERIQUE 
CAPACITE MEMOIRE NECESSAIRE : IK RAM 

Ce programme évite les embûches 
du programme HORLOGE présenté dans 
le manuel Sinclair. La plus impor¬ 
tante concerne le réglage très 
délicat de cette horloge. En effet 
la modification de la ligne d'in¬ 
struction PAUSE 42 ne provoque 
que des sauts de l/50ème de 
seconde à la fois. Bien que des 
lignes neutres (c'est-à-dire 
sans influence sur le déroule¬ 
ment) puissent être insérées dans 
le programme pour créer un petit 
laps de temps supplémentaire, on 
n'obtient jamais un multiple exact 
de l/50ème de seconde et l'horloge 
n'est jamais à l'heure. 

Peut-on espérer obtenir une précision mirobolante de ce type 
d'horloge ? Pas tout à fait. La version présentée ci-dessous 
simule une horloge beaucoup plus précise que celle obtenue par le 
programme Sinclair mais présente l'inconvénient de travailler en 
mode lent . 

Les propriétaires d'un ZX80 (modifié avec la ROM 8K) ne peuvent 
donc pas faire fonctionner ce programme (désolé). Ne désespérez 
pas, la méthode employée dans ce programme peut être mise à profit 
dans d'autres cas de figures qui ne nécessitent pas l'utilisation 
continue de l'écran. 

En quoi consiste cette méthode ? Elle est basée sur la variable 
système FRAMES qui est décrémentée à chaque "rafraîchissement" de 
l'image télé, c'est-à-dire cinquante fois par seconde. Quand le 
ZX81 fonctionne en mode lent, l'image est constamment "rafraîchie" 
la variable FRAMES est donc continuellement sollicitée, ce qui 
représente 50 "tic-tac" par seconde. 

Ce tic-tac étant beaucoup trop rapide pour être contrôlé à 
l'aide d'un programme Basic, nous avons utilisé l'octet le plus 
significatif de la variable FRAMES. Ce dernier, situé à l'adresse 
16437, est modifié tous les 256 "rafraîchissements" d'écran. 

Les données sont réunies pour effectuer le calcul de la base de 
temps du programme : il faut 256 "rafraîchissements" pour modifier 
la valeur de l'octet à raison de 50 par seconde. Le résultat de 
l'opération 256/50 est égal à 5.12 secondes. 
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Cette valeur est représentative de "l'horloge interne". Si un 
programme contrôle le contenu de l'adresse 16437, un laps de temps 
égal à 5.12 secondes s'écoulera chaque fois que le contenu sera 
modifié. L'horloge fonctionnant en continu, cela n'a aucune inci¬ 
dence si le programme met une ou deux secondes pour exécuter un 
autre travail. 

Tant que l'exécution du programme prend moins de 5.12 secondes 
avant de contrôler l'horloge, l'heure reste exacte. 

Ce programme "Horloge numérique" s'inspire des idées précédentes 
pour afficher l'heure de façon permanente. La base de temps (égale 
à 5.12 s.) ne permet pas l'affichage d'une valeur inférieure ; par 
conséquent, le temps écoulé ne peut être compté seconde par seconde. 

Vous pouvez constater de temps à autre un saut de six secondes à 
la place de celui de cinq secondes. Ceci se produit chaque fois que 
les ajouts successifs de la partie décimale de la base de temps 
(soit 0.12) provoquent une retenue (tous les 9 tic-tac). 

Maintenant, vous concevez aisément comment la méthode de réglage 
de cette horloge peut devenir précise. Puisque le programme ne 
dépend pas de l'instruction PAUSE, n'importe quelle valeur peut 
être ajoutée chaque fois qu'un tic-tac est détecté. Bien que la 
valeur 5.12 donnée comme base de temps soit très proche de la vé¬ 
rité, vous constaterez sans doute que l'horloge n'est pas aussi 
précise que ça. Le programme a été conçu pour que vous puissiez 
vous-même rectifier cette valeur à la ligne 5. 

Faites tourner le programme pendant un délai d'une heure (en 
chronométrant aussi précisément que possible) et calculez le nombre 
n de tic-tac émis par l'horloge interne. Vous pouvez, si vous le 
préférez, modifier le programme pour que l'ordinateur calcule ce 
nombre à votre place. Calculez ensuite la durée réelle de chaque 
tic-tac (3600/n) et entrez cette valeur à la ligne 5 du programme. 
Personnellement, nous avons obtenu une base de temps de 5 secondes. 

Le programme "Machine à sous" utilise ce programme pour chrono¬ 
métrer la durée du jeu. 

Remarquez que ce programme occupe presqu'entièrement la mémoire 
d'un ZX81 IK. 


1 riÇRLpCE 

5 DîJREE TI05.12 

10 PRINT "HEURE (HHM4) ? 
20 INPUT T$ 

30 1^ H=VAL T$ (1 TO 2) 
40 LET M=VAL T$ (3 TO 4) 


(voir ci-dessus 
(temps initial 

(extrait l'heure 
(extrait les minutes 
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50 S=(- DUREE TIC) 

60 LCT Tl=-1 
70 POKE 16436,255 
80 

90 PRINT AT 10,10;"***********"; 

AT 12,10;”***********" 
100 T2=PEEK 16437 

110 LET TIC =(T1<>T2) 


(initialisation du chrono 
(contrôle du tic-tac 
(démarre le tic-tac 

(pour l'esthétique ! 

(contrôle FRAMES 
(valeur modifiée ? 


120 ^ TIC THEN GOSüB 1000 
130 T1=T2 

140 GOTO 100 
1000 LE'T S=S+DUREE TIC 
1010 IF S<60 THEN GOTO 1100 
1020 ^ M=Mtl 
1030 S=S-60 

1040 ^ M<60 THEN GOTO 1100 
1050 H=H+1 

1060 M=M-60 

1070 ^ H>23 THEN LET H=0 
1100 PRINT AT 11,12;H;":";M;":"; 
1110 RETÜEN 


(oui ? 

(réactualise le compteur 
(nouveau contrôle 
(incrémente le temps 
(Imn de passée ? 
(réactualise les minutes 
(réinitialise les secondes 
(1 heure de passée ? 
(réactualise les heures 
(réinitialise les minutes 
(un jour de passé ? 
lOT S;" " (imprime l'heure 
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œMMENT DEVENIR ARTISTE 
CAPACITE MEMOIRE NECESSAIRE : IK RAM 


Ce minuscule programme va-t-il 
éveiller en vous un nouveau Picasso 
D'accord, la comparaison est peut-être 
un peu exagérée mais il vous permettra 
tout de même de donner libre cours 
à votre pensée créatrice sur l'écran. 

Le programme demande l'entrée d'une 
série de "coups de pinceau". Ceux-ci 
sont représentés par une chaîne de 
cinq caractères : les deux premiers 
définissent le numéro de ligne, les 
deux suivants le numéro de colonne 
et le dernier le caractère à peindre 
sur l'écran (à la position déterminée 
par les quatre premiers chiffres). 




Pour dessiner une étoile "♦" à la 


ligne 18 de la colonne 05, il faut 
entrer dans C$ la chaîne "1805^ 






Si vous donniez par hasard un coup de pinceau malheureux, le 
remède est simple : dessinez à la même position un "espace" (si 
vous désiriez un blanc) ou un nouveau caractère. 


10 INPUT C$ (entrée des "coups de pinceau' 

20 LEN C$<>5 THEN G(DTQ 10 (vérifie si tout est O.K. 

30 PRINT AT VAL C$ (1 TO 2) ,VAL C$ (3 TO 4) ;C$ (5) ; 

("peint" 

40 OOIO 10 (recommence... 

Pour vous donner un aperçu, voici un exemple d'application de 
quelques "coups de pinceau" : les caractères : : sont obtenus en 
tapant GRAPHICS/SHIFT/A : 


0920/ 

1314- 

1224 

09211 

1315- 

1225 

1019/ 

1316- 

1226 

10211 

1317- 

1227 

1114- 

1318- 

1228 

1115- 

1319- 

1229 

1116- 

1320- 

1230 
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1117- 

1321- 

11211 

1118- 

1311- 

12211 

1213/ 

1312- 


1214. 

1222:: 


1313- 

1223:: 



Les possesseurs de l'extension 16K RAM. préféreront peut-être la 
variante présentée ci-dessous. Elle a le mérite supplémentaire de 
permettre la sauvegarde de vos chefs-d'oeuvre sur cassettes. Vous 
pouvez ainsi les redessiner à volonté ! 

Lancez l'exécution du programme et introduisez vos "coups de 
pinceau" comme précédemment (l'exemple ci-dessus convient parfai¬ 
tement dans ce cas). Quand vous êtes satisfait de votre "peinture", 
entrez dans la commande SAVE à la place de la chaîne de carac¬ 
tères . 

Le programme vous demandera alors de baptiser votre oeuvre pour 
la sauvegarder sous son nom (s'assurer que le magnétocassette est 
en route avant d'entrer le nom). 

Quand vous chargerez à nouveau le programme, votre dessin sera 
automatiquement affiché. 

A tout moment il est possible d'entrer le mot-clé "QUIT" pour 
interrompre l'exécution du programme. 


1 ^ 16K ARTISTE 

2 REM *********** 

10 DIM P$(22,32) 

20 Rm DESSIN 
30 CI£ 

40 FOR Y=1 TO 22 
50 PRINT P$(Y); 

60 NEXT Y 

100 REM COUPS DE PINCEAU 
110 INPUT C$ 

120 ^ C$="SAVE" THEN GOTO 1000 
130 IF C$="QUIT" THEN GOTO 9999 
140 ^ I^ C$<>5 THEN GOTO 100 
150 ^ Y=VAL C$(l TO 2) 

160 I^ X=VAL C$ (3 TO 4) 

170 ^ DJT (Y/22)<>0 OR DJT (X/44)<>0 THEN GOTO 100 
180 PRINT AT Y,X;C$(5); ("peint" le caractère 


(copie du dessin 


(vérifie la conformité 
(numéro de ligne 
(numéro de colonne 
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190 LET P$(Y+1,X+1)=C$(5) 

200 GOTO 100 

1000 REM SAUVEGARDE DU DESSIN 
1010 PRINT AT 21,0; "NOM DU DESSIN?" 
1020 INPUT N$ 

1030 ^ LEW N$=0 THEN GOTO 1000 
1040 SAVE N$ 

1050 GOTO 20 
9999 STOP 


(stockage dans un tableau 
( recommence 


(attention à l'erreur F 
(dessine à nouveau l'oeuvre 


*** RECREATION *** 

CA PACITE MEMOI RE NECESSAIRE ; I K RAM 

Le ZX81 choisit au hasard un nombre compris entre 1 et 99. A vous 
de deviner lequel avant que l'ordinateur se lasse de votre ineffi¬ 
cacité et ne vous donne la solution. 


10 ^ N=1NT (RND*99)+1 
20 SCROLL 

30 PRINT "JE PENSE A UN NOMBRE..." 

40 FOR G=1 TO 5+IWr (RND*3) 

50 SCROLL 

60 PRINT "ENTREZ LE NUMERO ESTIME";G;": 
70 INPUT Y 
80 PRINT Y 

90 IF Y=N THEN GOTO 200 
100 SCROLL 

110 PRINT "PAS DU TOUT 

120 ^ Y>N THEN PRINT "TROP HAUT" 

130 IF Y<N THEN PRI.NT "TROP BAS" 

140 NEXT G 
150 SC.ROLL 

160 PRINT "RATE. LE NOMBRE ETAIT ";N 
170 GOTO 9999 
200 SCROLL 

210 P RINT "TROUVE. B^^A\0.. . " 

9999 STOP 
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JUSTIFICATION DÉCIMALE 


Un des problèmes posés par le mode de calcul à virgule flottante 
concerne le formatage des résultats au moment de leur impression. 

Sauf avis contraire, le ZX81 ne formate pas les variables numé¬ 
riques ; il les affiche au contraire sous forme de série de chiffres 
dont la présentation n'est pas toujours adéquate. Il est alors 
difficile d'afficher des tableaux de résultats où les nombres sont 
tous bien alignés. 

FORMA TAGE DES PRIX 

Le problème mentionné ci-dessus est particulièrement évident quand 
un programme manipule des valeurs monétaires. 

Un prix est généralement donné avec deux chiffres après la vir¬ 
gule, même s'il s'agit de deux zéros. Imaginons par exemple un 
programme de calcul de la T.V.A. devant afficher les résultats 
selon la présentation suivante : 


MONTANT 

TAUX T.V.A. 

T.V.A 

100.00 

17.6 

17.60 

1.00 

17.6 

0.18 

25.60 

17.6 

4.51 


Si aucune précaution de formatage n'est prise, lors de l'exécution 
du programme l'alignement des nombres sera effectué sur le chiffre 
de gauche : cette opération est appelée justification à gauche : 
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MONTANT TAUX T.V.A. 


T. V. A. 


100 17.6 17.6 
1 17.6 0.18 
25.6 17.6 4.51 


Le sous-programme présenté ci-dessous reconstitue les nombres 
suivant un format fixé et les aligne dans une colonne déterminée. 

On obtient ainsi un affichage des résultats beaucoup plus lisible. 
Si vous utilisez une imprimante, l'effet sera encore meilleur. 

Tous les résultats sont arrondis à deux chiffres après la vir¬ 
gule ; ainsi, une valeur égale à 3.245 devient 3.25 sur l'écran. 
Soyez néanmoins prudent : le système d'arrondi peut faire appa¬ 
raître des erreurs de quelques centimes dans le résultat ici ou là. 

Essayez au maximum d'utiliser des valeurs à deux décimales pour 
éviter cet ennui. 


Les deux variables suivantes doivent être définies avant l'appel 
du sous-programme : 


V qui contient la valeur à afficher 

C qui contient le numéro de la colonne où sera aligné le 

chiffre dc' dr oite de la valeur (justification à droite). 


9500 JUSTIFIE V A C (2 DECIMALES) 

9510 I^ XL=INT (AJIS V+.005;"3GN V (arrondit les francs 

952Ü XP=INr ((.VIS {V-XL)*100)+0.5) (arrondit les centimes 

9530 LET Z$=STO$ XP (convertit les centimes 

9540 LET Z$=STR9 XL ("0"+Z$)(L N Z$ TO ) 


9550 PRINT XA3 (C-I£N Z$+1);Z$; 
9560 RETURN 


(met des zéros si pas de 

centimes 

(affiche à la colonne C 
( terminé 


Voici un petit exemple d'application de ce sous-programme : 


ICO CALCUL DE TVA 

110 PRINT "ENTRER LE RDtTL^ANT FFF.CC" 

120 INPLT V 

130 ^ S=V 

140 c =:8 

150 ~GQSU3 9500 

160 P RINT 

170 ^ V=V* 17.6/100 
180 œSUD 9500 
190 PRINT 

200 P.^TNT TA3 13;"-" 


(stocke le montant pour plus 

Lard 

(affiche à la colonne 18 
(justifie V et l'affiche 
(nouvelle ligne 
(calcule la T.V.A. 

(justifie et affiche 
(nouvelle ligne 
(pour l'esthétique 
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210 LET V=V+S (valeur + T.V.A. 

220 GOSUB 9500 (justifie et affiche montant total 

230 P/vJSE 4E4 

240 

250 RUN 


Si vous avez un ZX80, ajoutez : 235 PCKE 16437,255. 


JUSTIFICATION AMOVIBLE 


Voici une extension du programme précédent qui vous permet (en 
plus) de choisir le nombre de décimales dans l'affichage du résul¬ 
tat. En plus des variables V et C , il faut définir une variable N 
qui contiendra le nombre de décimales désiré. 

Ce sous-programme n'effectue pas l'arrondi automatique car dans 
de nombreux cas le ZX81 n'offre pas une précision suffisante pour 
les opérations de division (voir chapitre "trucs et astuces"). 

Mieux vaut donc arrondir vous-même la variable V pour être sûr 
que le degré de précision est suffisant avant d'appeler le sous- 
programme . 

9500 REM JTISTTFIE V A C AVEC N DECIMALES 
9510 ^ Z$="" 

9515 FOR Z=1 TO N 
9520 Z$=Z$+'’0" 

9525 NEXT Z 

9530 ^ XL=INT ABS V*SGN V 
9535 XP=INT (ABS (V-XL) *10**N) 

9540 Z$=STR$ XLt". (Z$ (1 TO N-I£N STR$ XP) + 

(STO$ XP+Z$) ) (1 TO N) 

9545 PRINT T.^B (C-LEN Z$+l) ;Z$; 

9550 REIURN 


Ce sous-programme peut être appliqué aux calculs de T.V.A. présen¬ 
tés plus haut à une seule modification près : ajoutez au programme 
initial une nouvelle ligne permettant d'initialiser la variable N 
à 2 (représente le nombre de chiffres après la virgule). 

105 LET N=2 
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Ce sous-programme est sensiblement plus lent que le précédent 
car la séparation "amovible" de la partie décimale, qui constitue 
tout son intérêt, est effectuée après une élévation à la puissance 
(**). Il présente par contre l'avantage d'être plus souple. 

Si vous ne désirez que deux chiffres après la virgule, contentez- 
vous de la première version. Sinon, utilisez la deuxième. La varia¬ 
ble N peut être affectée une fois pour toute ou bien modifiée sui¬ 
vant les besoins de la cause. 


SIMU LA TION DU PRINTJJ^NG 

Bien qu'assez proche du Basic Microsoft (qui sert pratiquement 
de référence pour la plupart des ordinateurs individuels), le Basic 
du ZX81 présente quelques lacunes par rapport à celui-ci. 

Une de ces lacunes concerne l'instruction PRINT , qui ne permet 
pas véritablement de formatage. Le sous-programme présenté ci- 
après est une nouvelle extension des deux précédents. Son utilisa¬ 
tion permet un formatage numérique encore plus souple. 

Un masque représentatif du formatage désiré pour afficher un 
nombre est affecté à la variable alphanumérique U^. 

La ligne : 

LET U^="9999.99" 

limitera obligatoirement l'affichage du contenu de la variable V 
à quatre chiffres avant la virgule et deux après. 

Le chiffre "9" symbolise la position des chiffres dans l'expres¬ 
sion du résultat. Le point représente la position relative de la 
virgule (le point décimal correspond à la notation anglo-saxonne 
de la virgule). Le Basic du ZX81 ne fournissant que neuf chiffres 
et demi significatifs, il est inutile d'utiliser un masque compor¬ 
tant plus de neuf (voire dix) caractères. 

Ce sous-programme fournit également la possibilité d'affecter à 
U^ un masque ne comportant aucun chiffre après la virgule, ce qui 
le rend utilisable pour toutes les valeurs numériques (dans la 
limite des 9,5 chiffres autorisés ; au-delà le ZX81 passe en nota¬ 
tion scientifique, de quoi laisser le sous-programme perplexe !). 

Attention, si le résultat nécessite plus de chiffres que n'en 
définit le masque, le chiffre de gauche (c'est-à-dire le plus 
significatif) est tronqué. 

Comme pour le sous-programme précédent, l'arrondi automatique 
n'est pas effectué. La variable V doit avoir la précision requise 
avant l'appel du sous-programme. 

La variable peut être affectée une fois pour toute au début 
du programme ou bien modifiée en cours de programme si besoin est. 
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Les trois variables requises sont les suivantes : 

V qui contient la valeur à afficher 

C qui contient le numéro de colonne sur laquelle est aligné 

le chiffre de droite 

qui contient le masque désiré (voir ci-dessus) 


9500 ^ PRINT USING U$ 

9505 LET Z$='"' (initialise le masque 


9510 ^ X]>0 

9515 FOR Z=1 TO UEN U$ 

9520 ^ XL THEN LET Z$=Z$+”0” 

9525 IF U$(Z)<>"." IHEN GOTO 9535 


(pas de point décimal trouvé 

(cherche le point décimal 

(réactualise si le point 
décimal trouvé 
(regarde si le masque a un". 


9530 ^ XL=N0T XL 
9535 NEXT Z 


(met à 1 si point décimal 
trouvé 


9540 LET XL=INT ABS V*9QN V ( comme précédemment 

9545 ^ XP=IWr (ABS (XL-V) *10**L») Z$) 

9550 IF LHJ Z$ THEN GOTO 9565 (vérifie s’il y a des décimales 

9555 LET Z$=S13t$ XL (sinon afficlie la partie entièr 

9560 GOTO 9570 

9565 ICT Z$=STR$ XL+"."+(Z$(l TO LEN Z$-LEN STR$ XP) + 

STR$ XP+Z$) (1 TO LEN Z$) 

9570 IF LE» Z$>IiN U$ THEN LET Z$=Z$ (laJ Z$-U» U$+l TO ) 


(tronque si nécessaire 

9575 PRINT TM (C-U» Z$+l) ;Z$; 

9580 RETURN 
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ECART-TYPE 


CAPACITE MEMOIRE NECESSAIRE : ÎK RAM 


Ce petit programme permet de 
calculer l'écart-type d'une série 
de données. Pour clore la liste 
de données, il suffit d'intro¬ 
duire le mot FIN au lieu de la 
nouvelle valeur demandée. 

Pour éviter toute erreur d'intro¬ 
duction, l'ordinateur vous indique 
également le numéro d'ordre de la 
valeur à entrer. 

Si vous vous interrogez pour 
savoir comment il est possible 
d'entrer une variable numérique 
à la place d'une valeur numérique, 
reportez-vous au chapitre "trucs 
et astuces". 



1 Rm ECART TYPE 
10 POINTS=0 
20 LET C'ARRES=0 
30 SCM=0 
40 LET FIN-=1E38 
100 ^ 

110 PRINT "ENTREZ LA TONNEE";POINTS+l 

120 INPUT VAIEER 

130 _IF \'AL,EUR=FIN THEN GOTÏ.) 200 

140 I^_ P0INTS=P0IN'IS+1 

150 SOM=SOM+VALEUR 

160 CARRES =CAPmF;S+VALEL'R**2 

170 GOTO 100 

200 

210 PRINT "ECART TYPE: "; 


(initialisation des variables 


(modification éventuelle 
(boucle principale 
(demande la donnée 
(entre cette donnée 
(est-ce fini ? 

(actualise le numéro d'entrée 
(actualise la somme 
(somme des carrés 
(valeur suivante 
(affiche les résultats 


220 P.CNT SQR ( CARRES/POINTS-(SOM/POINIS) **2) 
9999 STOP 
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LES DENTS DE LA MER 

CAPACITE MEMOIRE NECESSAIRE : 16K RAM 





Vous vous sentez des envies de 
mordre ? Alors ce programme va 
vous donner satisfaction ; il 
vous transforme en requin affa¬ 
mé poursuivant et terrorisant 
quatre innocents baigneurs. 

Essayez de les "croquer" 
tous les quatre en un mini¬ 
mum de temps. 


Faites avancer le requin en 
appuyant sur les touches 5, 6, 

7 et 8 (sans utiliser la touche 
SHIFT). Celui-ci se déplace dans 
le sens de la flèche correspondant 
à la touche pressée. 

Une fois la direction modifiée, il 
est inutile de continuer à appuyer sur la touche : le requin 
continue tout seul. 

Les quatre baigneurs, dont la position est déterminée aléatoire¬ 
ment, se déplacent sur des axes différents. Leur vitesse de dépla¬ 
cement est égale au quart de celle du requin. 

Quand un nageur atteint le bord de l'écran, il "fait le tour" 
et réapparaît de l'autre côté. 




1 REM LES DENTS DE LA MER 

2 REM ******************* 

10 ^ S(5,2) 

20 FOR X=1 TO 4 
30 S(X,l)=Iin’ (RNO*64) 
40 ^ S(x,2)=iNrr (Rî»i:*44) 
50 NEXT X 
60 S(5,l)=30 

70 ^ S(5,2)=24 
80 ^ YD=4 
90 T=0 

100 LET N=1 

110 PRINT /VT 10,14; "DENTS" 
200 REM BOUCLE PRINCIPALE 


(là4 : baigneurs / 5-6 : requin 
(positionne les baigneurs 
(ligne aléatoire 
(colonne aléatoire 

(positionne le requin 

(initialise la direction du requin 
(nombre de coups 
(baigneur suivant 
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210 LCT X=1 

Z20 POR Y=1 TO 4 

230 ^ S(Y,1)05(5,1) OR S(Y,2) 

240 PRINT AT 21-lNT (S(Y,2)/2) , 

250 PAUSE 100 

260 ^ S(Y,1)=-1 

300 ^ S (Y, 1)0-1 THEN LET X=0 

310 NEXT Y 

320 IF NOT X THEN GOTO 500 
330 PRINT AT 20,0; "REUSSI EN ";T 
340 CarO 9999 
500 D=OODE 1NKEY$ -32 
510 ^ D>0 D<5 THEN LET YD=D 

520 D=YD 

530 GOSUB 1000 
540 UNPLQT 5(6,1),5(6,2) 

550 S(6,1)=S(5,1) 

560 S(6,2}=S(5,2) 

565 LCT 5=5 
570 GOSUB 1100 
580 ^ S=N 

590 ^ S(S,1)=-1 lliEN GOTO 900 
600 D=N 

610 GOSUB 1000 
620 UNPLQT 5(5,1),5(5,2) 

630 GOSUB 1100 
900 T=T+1 

910 N=N+1 

920 JT N>4 lUEN LET N=1 
930 GOTO 200 

1000 Rm CALCULE LA DIRECTTON 
1010 ^ DX=((D=l)*-:) + (I>4) 

1020 LET DY=((D=2)*-1)+(D=3) 

1030 RLTURN 

1100 REX GESTION DE PDUVEMENTS 
1110 S(S,1)=S(S,1)+DX 

1120 LET S(S,2)=S(S,2)+DY 


(initialise compteur de baigneurs 

croqués 

(contrôle chaque baigneur 

05(5,2) THEN GOTO 300 

(regarde si le requin est après 

le baigneur 

C (S(Y,l)/2) ; "KTAM" 

(oh ! le pauvre... 

(porte le baigneur disparu 
(reste-t-il des baigneurs vivants ? 

(si oui, continue la poursuite 
" OOUPS" 

(changement de direction 
(vérifie la validité 
(déplace le requin 
(calcule la direction du requin 
(efface la queue du requin 

(la queue vient à la place de la 

tête 

(indice du requin 
(dessine la nouvelle tête 
(contrôle le baigneur suivant 
(est-il avalé ? 

(déplace le baigneur 
(vérifie sa direction 
(efface l'ancienne position 
(dessine la nouvelle 
(incrémente le com.pteur de coups 
(réactualise le nombre de baigneurs 
(seulement quatre 
(continue... 

(DX contient une seule position 
(DY contient une seule position 

(déplace d'une position 
(déplace d'une position 
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1130 S(S,1)=S(S,1)-I\T (S(S,l)/64)*64 ( contrôle "tour par derrière 

1140 LET S(S,2)=S(S,2)-ryr (S(c,2)/44)*44 (contrôle "tour par derrière 
1150 PLOT S(S,l),S(S,2) (dessine nouvelle position 

1160 RETURN 

Si vous utilisez un ZX80, ajoutez les lignes suivantes : 

505 PAUSE 25 

506 PO::e :.6437,255 


*** RECREATION *** 


Vous pourrez exécuter ce minuscule programme à l'un de vos moments 
perdus ; il dessine de lui-même des esquisses quelquefois amusantes. 
Désolé pour les utilisateurs de ZX80, celui-ci ne fonctionne qu'en 
mode lent. 

Vous pouvez toujours essayer de l'adapter mais vous trouverez 
probablement les sauts d'image fatigants à la longue. 


10 P=0 

20 X=INrr (RND*32)+16 

30 i^ Y=LNrr (RM)*22)+11 

40 ^ P THEN PEQT X,Y 
50 ^ Nar P the:>: unplot x,y 
60 p=Nar P 

70 GOTO 20 
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UTILISATION DES 
CODES MACHINES 


Ce chapitre n'a pas la prétention de vous apprendre à programmer 
en langage machine. 

Son contenu se limite à l'étude des méthodes utilisées pour en¬ 
trer un sous-programme en langage machine. Ces méthodes sont au 
nombre de trois et obéissent à des règles très précises ; comme 
vous le constaterez, chacune présente des avantages et des incon¬ 
vénients . 

La méthode choisie dépendra largement du nombre de codes machine 
à entrer et de la manière dont ils sont écrits. 


UTILI SATIO N DE L ' INSTR UCTI ON^EM 

Cette méthode est certainement la plus commode pour entrer un 
sous-programme et le sauvegarder sur cassette avec le programme 
principal. 

La première ligne du programme doit comporter une instruction 
REM ; celle-ci est suivie d'une série de caractères "quelconques" 
qui sont appelés à être remplacés par le sous-programme. 

La première ligne du programme est placée à l'adresse 16509 de 
la mémoire. L'adresse du premier caractère "quelconque" est 16514 
(16509+2 octets pour le numéro de ligne+2 octets pour la longueur 
de la ligne+un octet représentant l'instruction REM). 

Ceci peut être vérifié en tapant : 

NEW 

10 Rm ABCDEF 

PRINT CHR$ (PEEK 16514) 

ce qui a pour conséquence l'affichage de la lettre "A". 

Grâce à l'instruction POKE, des sous-programmes en code machine 
peuvent être entrés à partir de cette adresse. Chaque code entré 
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viendra remplacer un des caractères "quelconques" suivant l'instruc¬ 
tion REM. 

Ne vous inquiétez pas si, après cette opération, la commande LIST 
vous donne une ligne d'instruction REM contenant des signes bizar¬ 
res ; le ZX81 essaye de convertir en caractères tous les codes ma¬ 
chine introduits et les affiche à tort. 

En voici un exemple : 

1 Pm AAAAA 
10 ^ X=16514 
20 PQKE X,237 
30 raŒ X4-l,75 
40 PQKE X+2,7 
50 PQKE X+3,64 
60 PQKE Xt4,201 
100 PRINT USR X 


Ce petit programme crée une routine en code machine dont la mis¬ 
sion consiste à fournir le numéro de la ligne exécutée. D'une façon 
générale, on obtient le numéro de la ligne en cours d'exécution à 
chaque fois que l'instruction USR X est rencontrée. 

Ce sous-programme offre la possibilité de faire de l'adressage 
relatif. Il est à présent tout à fait correct d'écrire : 

120 QQTQ UBR X+200 

L'exécution de cette ligne branche le programme à l'adresse rela¬ 
tive du numéro de la ligne en cours d'exécution, c'est-à-dire à 
l'adresse 320 (dans ce cas, USR X donne 120). 

Si vous désirez sauvegarder le programme avec cette routine en 
code machine, n'oubliez pas d'effacer les lignes 20 à 60, devenues 
inutiles ; cette opération libère de la place pour d'autres lignes 
de programme. 

Le sous-programme n'est pas remis en cause par l'entrée de la 
commande RUN car les valeurs correspondant aux codes machine sont 
insérées dans une ligne de programme et non pas affectées à des 
variables. 

Les inconvénients de cette méthode se résument en deux points : 

1- L'écran est encombré de signes incohérents quand vous demandez 
la liste d'instructions du programme. 

2- Le sous-programme doit obligatoirement être situé à la première 
ligne du programme, ligne normalement réservée à l'identifica¬ 
tion (instruction REM). 

Les avantages sont les suivants : 

1- Le sous-programme n'est pas affecté par les commandes RUN et 
CLEAR. 
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2- Le sous-programme est facilement localisé, ce qui facilite son 
accès (adressage direct - JUMP - ou appel de sous-programme - 
CALL) . 

3- Après son exécution, le sous-programme devient partie intégrante 
du programme principal ; les lignes ayant servi à le mettre en 
place peuvent donc être effacées sans problème. 


UTILISATION D'UN TABLEAU 

La seconde méthode fait appel à la création d'un tableau qui 
rassemble tous les codes composants le sous-programme. 

La commande DIM permet de préciser la dimension d'un tableau à 
partir du moment où elle est exécutée. Si la commande DIM est 
placée à la première ligne du programme, le tableau occupera la 
première position de la mémoire réservée au stockage des variables. 
Il est possible de connaître l'adresse correspondante en analysant 
le contenu de la variable système VARS. 

En supposant que le tableau rassemble des variables à une seule 
dimension (chaîne de longueur fixe par exemple), on peut obtenir 
l'adresse du premier caractère de la chaîne en exécutant la ligne 
suivante : 

LET ADRESSE=PEEK 16400+PEEK 16401*256+6 

La page 174 du manuel d'utilisation Sinclair nous apprend également 
qu'il faut d'emblée six octets pour créer un tableau à une seule 
dimension (voir "Tableau de caractères" page 174). Si cette pré¬ 
caution est omise, l'instruction POKE écrit les codes machine là 
où il ne faut pas. 

L'exemple donné dans le paragraphe précédent peut être modifié 
de la façon suivante : 

1 ^ X$(5) 

10 X=PE£K 16400+PEEK 16401*256+6 

La suite du programme est identique ; en effet, la variable X 
utilisée pour localiser la position du sous-programme est indé¬ 
pendante du choix de la méthode (tableau ou instruction REM). 

Il est possible d'utiliser l'instruction CHR^ pour affecter les 
valeurs à l'aide de l'instruction LET. Une variante du programme 
précédent pourrait être : 


77 



LE PETIT LIVRE DU ZX81 


1 DM X$(5) 

10 X=PEEK 16400+PEEK 16401*256+6 
20 ^ X$(1)=CBR$ 237 
30 ^ X$(2)=CHR$ 75 
40 1^ X$ (3)=CHR$ 7 
50 X$(4)=CHR$ 64 

60 X$(5)=CeR$ 201 

100 PRINT USR X 


Ici également, les lignes 20 à 60 peuvent être effacées après 
l'exécution du programme. 


Avantages : 

1- La première ligne du programme n'est pas obligatoirement une 
instruction REM factice. En effet, il est possible de placer 
des instructions (exemple : PRINT, FAST, SLOW...) avant l'in¬ 
struction DIM tant que celle-ci précède la première affectation 
de variable. 

2- Le sous-programme peut être manipulé à 1'aide des commandes 
habituelles du langage Basic. 

3- Le sous-programme peut être sauvegardé avec le programme prin¬ 
cipal, ce qui permet l'élimination des lignes ayant servi à 

le mettre en place. 

In con véni en ts 

1- Un sous-programme doit être relogeable, ce qui implique obliga¬ 
toirement l'utilisation des instructions de branchement relatif. 
Les instructions d'appel à un sous-programme peuvent être simu¬ 
lées en intervenant directement sur la pile ou en utilisant 
l'adressage relatif. 

2- Toutes les variables doivent être stockées avec le programme. 
Ceci rend impossible d'une part l'utilisation des commandes 
RUN et CLEAR, d'autre part le "redimensionage" des tableaux. 

3- Comme il n'existe que 26 variables distinctes (A, B... Z), 
l'emploi de cette méthode peut s'avérer très restrictif dans 
certains cas. 
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UTILISATION DES DERN IERES ADRESSES DE LA MEMOIRE 

Cette méthode est une des plus fiables. En effet, les codes ma¬ 
chine entrés ne sont pas affectés par les commandes du langage 
Basic (NEW y compris). Le seul moyen d'anéantir le sous-programme 
est... d'éteindre l'ordinateur ! 

Malheureusement, le ZX81 est uniquement prévu pour charger (LOAD) 
ou sauvegarder (SAVE) programmes et variables ; l'ensemble des 
codes machine placés aux dernières adresses de la mémoire n'est 
pas affecté par ces deux commandes. 

La variable-système RAMTOP contient l'adresse du dernier octet 
disponible en "haut de mémoire". Cette valeur est déterminée lors 
de la mise en route du ZX81. 

A tout moment l'instruction POKE permet d'abaisser du nombre 
d'octets nécessaires la valeur de l'adresse affectée â la variable 
RAMTOP. Il vous est alors possible d'écrire à partir de cette 
adresse les codes machine du sous-programme ; rien ne vous empêche 
de les y laisser indéfiniment si le coeur vous en dit. 

Un des inconvénients de cette méthode est l'obligation d'entrer 
la commande NEW pour rendre effective la modification. Sinon, toute 
tentative pour entrer des codes machine dans la partie de la mémoire 
située au-delà de l'adresse définie par la variable RAMTOP serait 
vaine. 

Dans ce but, nous avons mis au point un programme particulier de 
chargement en mémoire ; celui-ci contient tous les codes machine à 
placer en "haut de mémoire". 

Dans ce cas, vous devez dans l'ordre : 

- abaisser la valeur de la variable-système RAMTOP du nombre d'oc¬ 
tets requis pour l'exécution du sous-programme. 

- taper la commande NEW. 

- entrer et exécuter le programme de chargement. Celui-ci placera 

les codes machine à partir de la nouvelle adresse définie par la 

variable RAMTOP. 

Si ce sous-programme est présent au début de chaque cassette, le 
programme est capable de charger lui-même un autre programme. 

Le programme de chargement ayant généralement pour seul objet de 
placer les codes machine en haut de mémoire, il est appelé à déve¬ 
nir assez élaboré. Le programme ci-après donne à tout moment le 
nombre approximatif d'octets encore disponibles en mémoire. Cette 
estimation n'est jamais très précise étant donné que l'occupation 
de la mémoire varie au cours de l'exécution du programme ; elle 
donne tout de même une idée générale. 
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Entrez en mode direct : 

LET R=PEIEK 16383+PEtIK 16389*256 (donne la valeur de RAMTOP 

LiCT R=R-20 (diminue de 20 

PQKE 16388,R-256*INrr (R/256) (la remplace 

PQKE 16389,11/1 (R/256) 

NEW (à ne pas oublier ! 


A présent, entrez, sauvegardez puis exécutez le programme suivant : 

10 REM chargement CODE MAOilNE 

20 ^ RAMTOP=PEEK 16388+PEEK 16389*256 

30 ^ C$="21000039ED5B1C40ED52444DC9" 

40 FOR X=1 TO LEU C$-l STEP 2 
50 PQKE RAMIOP+INT ((X-l)/2), 

(OOOe C$(X)-28)*16+OOCAi C$(X+l)-28 
60 NEXT X 


Un tel programme vous permet d'entrer les codes hexadécimaux d'un 
sous-programme en langage machine. L'enseii±)le des codes hexadécimaux 
est placé dans la variable C$ (ligne 30). La partie du programme 
comprise entre les lignes 40 et 60 extrait les caractères deux par 
deux, les convertit en nonl^res décimaux et les entre en mémoire 
(POKE) à partir de l'adresse définie par la variable IWTTOP. 

Bien que ce programme soit employé pour charger une routine 
calculant le nombre d'octets encore disponibles en mémoire, il peut 
servir à charger d'autres programmes en code machine. Il suffit pour 
cela de modifier la chaîne cÿ de la ligne 30. 

Une fois chargée, la routine reste en "haut de mémoire" et ceci 
jusqu'à ce qu'il y ait coupure de l'alimentation du ZX81. 

Elle peut être appelée à tout moment en entrant la ligne : 

PRINT ÜSR (PEEK 16388+PEEK 16389*256) 

Vous obtiendrez en retour le nombre d'octets restés disponibles 
dans la mémoire du ZX81. Ceci correspond, dans le diagramme d'orga¬ 
nisation à la zone notée "RESERVE" (voir manuel Sinclair page 171). 

La correspondance entre instructions (ou mnémonique) en langage 
assembleur et les codes entrés dans cë se présente de la façon 
suivante : 
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instructions assembleur 


valeurs 

hexadécimales 


[RAMTOP] : LD 

HL,0 

21 00 

00 


(initialise HL à 0 

ADD 

HL, SP 

39 



(obtient le pointeur de 
pile 

(obtient STKEND 

LD 

DE,(STKEND) 

ED 5B 

IC 

40 

SBC 

HL,DE 

ED 52 



(donne pile moins STKEND 

LD 

B,H 

44 



(réponse dans BC 

LD 

C,L 

4D 




RET 


C9 



(retour au Basic 

Avantages 

1- Le sous-programme obtenu 

n ' est 

pas 

affecté par les commandes 

NEW et CLEAR. 





2- Les sous-programmes très 

longs 

peuvent 

être entrés grâce à ce 


programme spécialement étudié à cet effet ; un maximum de place 
reste ainsi disponible pour d'autres sous-programmes. 

Inconvéni cnt s 

1- Cette méthode longue et ennuyeuse oblige à placer le sous- 
programme en "haut de mémoire", puisque la commande NEW devra 
bien être utilisée à un moment ou à un autre. 

2- A moins d'être très organisé dans votre travail, vous devrez 
utiliser les instructions d'adressage relatif (JUMP) et de 
brancliement relatif à un sous-programme (CALL). Sans cette pré¬ 
caution, peut être assez pénible d'ajouter par la suite des 
sous-programmes supplémentaires. 


GEN E RALI TES 

Nous avons dnuméré plus haut une série de commandes directes qui 
réduisent la valeur de la variable-système RAMTOP de vingt octets. 

Le programme suivant mérite de figurer au début de chaque casset¬ 
te si vous décidez de réserver, lors de l'allumage du ZX81, la place 
des routines en code machine. 

A chaque fois que vous désirez charger un sous-programme en code 
machine (en utilisant par exemple le programme ci-dessus), exécutez 
en premier lieu le programme suivant ; il permet de réserver la 
place nécessaire. 
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1 REM INITIALISATION RAMTOP 

2 ^ 

3 

10 PRINT "O0^'BIEN D OCTETS A RESERVER?" 
20 INPUT N 


30 LET R-PEEK 16388+PEEK 16389*256 (donne la valeur actuelle de 

40 LET R=R-N (calcule nouvelle valeur*^*“''^®^ 

50 POKE 16388,R-256*IN'r (R/256) (la remet en mémoire 

60 fOKE 16389,l.'/r (R/256) (la remet en mémoire 

70 NEW (réinitialise la mémoire 


Vous pouvez à présent exécuter le programme de chargement direc¬ 
tement. 


Si vous avez une prédilection pour les codes machine, vous trou¬ 
verez le programme suivant particulièrement utile. Il permet d'exa¬ 
miner le contenu d'une portion donnée de la mémoire, tout en spé¬ 
cifiant les adresses en système décimal ou hexadécimal. Il reconnaît 
même certaines variables-système comme pointeurs d'adresse de la 
zone mémoire à examiner. 

En éliminant le sous-programme démarrant à la ligne 2000, il est 
possible de tout caser dans une mémoire IK RAM. Malheureusement, 
le programme perd dans ce cas une grande part de son efficacité. 


100 AFFICHAGE CONTENU MEMOIRE 
110 GOSUB 9000 
120 ^ A=0 
200 GOSUB 1000 
210 

220 FOR Y=0 TO SL 
230 PRINT N+Y*8;TAB 7; 

240 FOR X=0 TO 7 
250 ICT Z=PEEK (N+Y*8+X) 

260 PRINT CHR$ (INT (Z/16)+28); 

270 P RINT CHR$ (Z-(INT (Z/16)*16)+28); 
280 PRINT " 

290 NEXT X 
300 PRINT 


(affiche les règles 
(adresse mémoire 
(demande adresse de départ 

(nombre de lignes à afficher 
(adresse de départ 
(affiche 8 octets 
(donne le contenu de l'octet 
(convertit en hexadécimal 


(octet suivant 


310 NEXT Y (ligne suivante sur l'écran 

320 LET A=Nt(SL+1)*8 (réactualise l'adresse implicite 

330 PRINT 
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340 GOTO 200 (affiche sur l'écran 

1000 REM ENTREE DE L ADRESSE 
1010 PRINT "ENTREZ L ADRESSE (N=OasnTNUE)" 


1020 INPUT S$ 

1030 ^ NOT UaJ S$ THEN GOTO 1020 

1040 IF S$(I£N S$)="H" THEN GOTO 

1050 GOSUB 2000 

1060 N THEN RETURN 

1070 ^ N=VAL S$ 

1080 RETURN 


(donnée entrée dans ? 

00 (vérifie si la valeur est hexad 

(vérifie noms des variables- _ 

système 

(retour si nom particulier 
(sinon, c'est en décimal 


1100 REM CONVERSION DE L HEXADECIMAL EN DECIMAL 
1110 N=0 

1120 TOR X=1 TO UN S$-l 
1130 ^ N=N*16+OODE S$(X)-28 
1140 NEXT X 
1150 RETURN 

2000 REM CONTROLE ADRESSES P^TICULIERES 


2010 LET SL=16 (limite de l'écran 

2020 LET N=0 (adresse convertie 


2030 ^ S$="N" TOEN ^ N=A 
2040 lE S$="PROG" THEN LET N=16509 
2050 IF S$="VARS" THEN GOTO 2100 
2060 IF S$="DFILE" THEN GOPO 2120 
2070 ^ S$="RAMTOP" THEN GOTO 2140 
2080 RETURN 

2100 N=PEEK 16400+PEEK 16401*256 
2110 RETURN 

2120 ^ N=PEEK 16396+PEEK 16397*256 
2130 RETURN 

2140 ^ N=PEEK 16388+PEEK 16389*256 

2150 RETURN 

9000 R^ INSTRUCTIONS 

9010 PRINT TAB 8;"AFFICHE MEMOIRE EN HEX" 

9020 PRINT 

9030 PRINT "ENTREZ L ADRESSE DE DEPART : ", 

"(1) EN VALEUR DECIMALE", 

"(2) EN HEXADECIMAL (EX4EA3H)", 

"(3) ""N"" (SiœiIFIE ""CONTINUE"") ", 
"(4) OU LE NOM D UNE VAR.SYSTEME-", 

" PROG,VARS,DFILE,RAMrOP" 


9040 PRINT 

9050 PRINT " (PRESSEZ UNE TOUCHE)" 
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9060 PAUSE 4E4 
9070 PQKE 16437,255 
9080 CI^ 

9090 RETURN 


En l'absence d'extension 16K RAM, remplacer les lignes 2000 à 
2150 par : 

2000 ^ SL=8 
2010 ^ N=0 
2020 RETURN 


Eliminez également les instructions REM, puis effacez les lignes 
1040, 1100 à 1150, 9000 à 9090 et enfin la ligne 110. Vous pouvez 
alors entrer les valeurs en système décimal mais vous perdez la 
possibilité d'entrer le nom des variables-système (désolé). 


œMBINAISON DES SOUS-PROGRAMMES 

Ce sous-programme en code machine - très sophistiqué - permet de 
combiner différentes routines entre elles. Il permet également de 
spécifier quelle fonction particulière est requise à un moment 
donné. 

Les variables-système contiennent une zone réservée de deux octets 
à l'adresse 16507. Celle-ci n'est pas affectée par le système Basic, 
bien qu'elle soit effacée chaque fois que la commande NEW est in¬ 
troduite . 

Le sous-programme utilise cette zone pour spécifier quelle est la 
fonction requise ; en introduisant un nombre à cette adresse, il 
effectue le choix approprié. L'appendice B fournit un listing de 
ce sous-programme en langage assembleur, bien que les principales 
caractéristiques soient développées dans ce chapitre. 

Le sous-programme doit obligatoirement commencer au début d'une 
page-mémoire, ce qui implique que l'adresse doit être un multiple 
de 256. A chaque fois que vous allumez votre ZX81, vous remarquerez 
que la valeur de la variable RAMTOP est un multiple de 256. En 
exécutant le programme d'initialisation donné plus haut, vous pouvez 
réserver 256 octets et être certain de situer la routine au début 
d'une page-mémoire. 

Si vous désirez plus tard ajouter d'autres routines, analysez 
attentivement les listings fournis dans l'appendice. 

Comme indiqué, les fonctions de la routine sont : 
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Valeur écrite à l'adresse 16507 Valeur rendue par USR 

0 Estimation de la mémoire restante 

1 Adresse du fichier écran 

2 Adresse des variables du Basic 

3 Adresse de la mémoire libre 
au-dessus de la routine elle-même 

4 Numéro de ligne en cours 

La plupart de ces fonctions pour être assez banales, n'en sont 
pas moins extrêmement utiles ; elles évitent de recourir à une 
ligne additionnant les deux octets obtenus par l'instruction PEEK. 

Voici un exem.ple d'application de ce sous-programme : 


20 LET R=PEEK 16388+PEEK 16339*256 (donne l'adresse de la routine 
30 LET S=16507 (adresse variable-système libre 

100 S,0 (estimation de la mémoir|^^^^^^ 

110 RESTE^USR R (exécution 

120 PRINT "IL Y A "jRESTE;" OCTETS LIBRES" (affichage 

130 PQKE S,2 (adresse des variables 

140 LET V=USR R (V contient maintenant l'adresse 

(des variables du Basic 


Les lignes 130 et 140 remplacent en fait : 

130 LET V=PëEK 16400+PEEK 16401*256 

et vous économisent 18 octets en mémoire. 

Que peut-on encore dire de ce super sous-programme ? Vous pouvez 
l'entrer en mémoire en modifiant la ligne 30 du programme "Charge¬ 
ment des codes machine" de la façon suivante : 

30 ^ C$="3A7B40FE05D05F1600211 
00060196EE91522272C3121000039ED5 
B1C40ED52444DC9ED4B0C40C9ED4B104 
0C901003644C9ED4B0740C9" 

(La présentation correspond à l'affichage obtenu sur l'écran au 
moment de l'introduction). 

Lancez l'exécution du programme de chargement puis essayez le 
programme de test présenté plus haut pour déterminer le nombre 
d'octets restant disponibles. Quand on entre un programme parti¬ 
culièrement important (à plus forte raison si l'extension 16K est 
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reliée), il est toujours bon de savoir si l'on court à la cata¬ 
strophe ou non. Un programme long est suffisamment ennuyeux à 
taper : mieux vaut savoir le plus tôt possible si l'on n'est pas 
trop "juste" en mémoire. 


*** RECREATION *** 
CAPACITE MEMOIRE NECESSAIRE : IK RAM 


Essayez d'échapper à votre adversaire (le ZX81). Après un court 
instant (déterrniné aléatoirement), l'ordinateur ouvre le feu sur 
vous. En appuyant sur une touche avant que le ZX81 n'ait eu le temps 
de tirer, vous pouvez avoir la vio sauve. 

Ne vous précipitez pas trop non plus, sinon il tirera quand même ! 

10 ^ R=IOT (RND*200) 

20 POR X=1 TO R+50 
30 INKEY?<>"" IHEN GOTO 100 

40 NEXT X 

50 PRINT AT 11,14; "*’^FEU **" (utilisation des caractères inverses 
60 GOTO 200 

100 R-X<10 THEN GOTO 150 
110 PRINT AT 9,15; "EN JOUE" 

120 FOR X=X TO R 
130 NEXT X 
140 GOTO 50 

150 PRINT AT 11,14;"CLIC...",,,,"SAUVE" 

200 PAUSE 4E4 
210 

220 RUN 

Si vous possédez un ZX80, modifiez les lignes 10 et 100 de la 
façon suivante : 

10 R=INT (RND*800) 

100 IF R-X<40 THEN GOTO 150 
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JEU DE DES 


CAPACITE MEMOIRE NECESSAIRE : ÎK RAM 


Coininent épater vos amis ? Si vous 
appréciez particulièrement les jeux 
de société, alors ne manquez surtout 
pas ce programme. Il jette deux dès 
et vous montre même les faces qui 
sont sorties ! Après chaque tour, 
il suffit d'appuyer sur une touche 
pour jeter à nouveau les dés. 

Qui croirait qu'un ordinateur 
d'à peine 1000 F est capable de 
simuler une partie de dés ? 

C'est pourtant ce qu'il fait. 

Il a en plus un énorme avantage 
par rapport aux dés que vous 
connaissez tous : point n'est besoin 
de se mettre à quatre pattes pour 
les chercher s'ils ont la fantaisie 
de rouler sous un meuble ! 



La technique utilisée pour écrire ce programme présente une inno¬ 
vation par rapport aux précédentes. Les idées qui l'inspirent ont 
été introduites dans un des chapitres précédents ("Optimisation des 
programmes"). Nous avons ici une occasion de les voir à l'oeuvre. 

Le nombre de valeurs numériques est limité au strict minimum. 

Parce qu'elles occupent à elles seules six octets dans une ligne de 
programme, les expressions numériques sont une source de gaspillage 
quand on les utilise fréquemment. 

Les lignes 10 à 30 du programme servent à définir trois variables 
qui contiennent respectivement les valeurs 2, 4 et 8. Remarquez le 
mode d'écriture ; même s'il semble un peu lourd, il permet d'occuper 
moins de place en mémoire que LET T=2, LET F=4 et LET E=8. En effet, 
la ligne LET P=T+T n'occupe que 11 octets alors que LET F=4 en 
occuperait 15. 

Les variables T, F et E ont été employées partout où les valeurs 
numériques 2, 4 et 8 étaient nécessaires. Dans certains cas, c'est 
la valeur 12 qui est voulue : on utilise alors la somme E+F à la 
place, ce qui économise 5 octets à chaque fois. 

Il est particulièrement intéressant de noter que la valeur 1 peut 
être obtenue en divisant n'importe quelle variable par elle-même ; 
l'expression T+T non seulement est égale à 1, mais encore occupe 
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quatre octets de moins en mémoire. Cela peut sembler quelque peu 
ridicule à certains, mais dans ce cas, la vitesse d'exécution a été 
délibérément sacrifiée au profit de la place en mémoire. 

A titre d'exercice, il vous est possible de remplacer E, F, et T 
par les valeurs numériques correspondantes. Dans ce cas, vous note¬ 
rez que lors de l'introduction du programme la mémoire se remplit 
sérieusement entre les lignes 1100 et 1200. 

Le programme n'aura même pas le temps d'être exécuté que le code 
erreur 4 sera affiché (pour le modèle IK). L'idée de départ n'est 
donc pas sans fondements ; aussi, surveillez attentivement la quan¬ 
tité de valeurs numériques que vous utilisez dans un programme. 


1 JEU DE DES 

2 Rm 

10 T=2 

20 F=T+T 

30 E=F+F 

40 RAND 
100 CI^ 

110 LET A=E 


(affecte les valeurs numériques à des 

variables 


(A et B sont les positions sur l'écran 


120 B=T-I-F 
130 œSUB 1000 
140 ICT A=E*F 
150 GQSUB 1000 
200 PAUSE 4E4 
210 PQKE 16437,255 
220 GOTO 100 


(dessine une face de dé 
(place le 2ème dé 
(dessine le 2ème dé 
(pause à l'infini... 

(continue à faire la même chose 


1000 ^ S=INT (RND* (T+F) )+T/T nombre au hasard^entre 

1010 FOR X=A TO A+E+E (dessine les contours 

1020 PLOT X,B 

1030 PLOT X,B+E+E 

1040 NEXT X 


1050 FOR X=B TO B+E+E 
1060 PLOT A,X 
1070 PLOT A+E+E,X 
1080 NEXT X 


1100 ^ SOINT (S/T) *T THEN PLOT A+E,B+E (dessine ce qui est sorti 

1110 ^ S<T THEN RETURN 

1120 PLOT A+F,B+E+F 

1130 PLOT A+E+F,B+F 

1140 ^ S<F THEN RETURN 

1150 PLOT A+E+F,B+E+F 

1160 PLOT A+F,B+F 
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1170 ^ S<T+F THEN RETURN 
1180 PLOT A+F,B+E 
1190 PLOT A+E+F,B+E 
1200 RETURN 


*** RECREATION *** 

Tou t à fait adapté à la version IK RAM 

Le jeu consiste à tirer sur la cible au moment où vous passez 
devant. Appuyez sur n'importe quelle touche pour tirer ou pour 
recommencer une partie. 

Ce programme est exécuté en mode lent ; les utilisateurs de 
ZX80 doivent ajouter des instructions PAUSE aux moments opportuns. 

10 ^ T=INT (RND*40)+4 
20 PLOT 63,T 
100 FOR Y=0 TO 43 
110 PLOT 0,Y 

120 ^ INKEY$<>"" THEN GOTO 200 
130 NEXT Y 

140 PRINT AT 20,8;"TROP TARD" 

150 GOTO 300 
200 FOR X=0 TO 63 
210 PLOT X,Y 
220 NEXT X 

230 IF Y=T THEN PRINT AT 21,8;"DANS LE MILLE" 

240 ^ YOT THEN PRINT AT 21,8; "RATE" 

300 PAUSE 4E4 
310 

320 RUN 


Pour les possesseurs de ZX80, il suffit d'ajouter les lignes : 

115 PAUSE 10 
305 POKE 16437,255 
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CONVERSION NUMÉRIQUE 


POURQUOI NB PAS UTILISER LA FONCTION VAL ? 

Bien que la fonction VAL du ZX81 soit très utile, elle n'est pas 
tout à fait conforme aux conventions du Basic Microsoft. Cela ne 
signifie en aucun cas qu'elle soit mauvaise ; elle est simplement 
différente. 

Il y a cependant un problème : il est impossible d'entrer une 
chaîne de caractères par l'intermédiaire de l'instruction INPITT 
puis d'utiliser la fonction VAL pour savoir si c'est une valeur 
numérique qui a été entrée. En effet, si la chaîne n'est pas une 
expression numérique, l'utilisation de la fonction VAL affiche le 
code erreur B. 

Pourquoi entrer un nombre sous forme de chaîne de caractères ? 

Il y a plusieurs raisons, la principale consistant à rendre le 
programme plus fiable. 

En clair, cela signifie qu'une information non conforme sera dé¬ 
pistée avant que le ZX81 n'ait une chance d'afficher un code erreur. 
Prenons l'exemple suivant : 

10 PRINT "QUEL AGE AVEZ VOUS? 

20 INPUT A 

30 PRINT A 

Si vous essayez d'exécuter ce programme en entrant n'importe quoi 
dans la variable A (par exemple CHIEN ou CHAT... ), vous obtiendrez 

à coup sûr le code erreur 2/20, voire pire ! Ceci ne vous sera pas 

d'un grand secours si vous entrez une mauvaise réponse au beau mi¬ 
lieu d'un programme. 

Le sous-programme présenté ici vous permet de convertir une 
chaîne de caractères en variable numérique. Il vous donne éga¬ 
lement une réponse égale à zéro si la chaîne n'est pas numérique. 

Il n'est valable que pour les valeurs numériques positives 
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entières, mais rien ne vous empêche de l'adapter pour manipuler à 
la fois les valeurs positives ou négatives, les valeurs entières 
ou décimales. 

Vous remarquerez que le sous-programme affiche zéro si la chaîne 
contient la valeur "0". Ceci peut être mis à profit dans les cas où 
la valeur 0 n'est pas désirée. 


LE SOUS-PROG RAMME 

La chaîne de caractères à analyser et à convertir doit être 
affectée à la variable pour que le sous-programme puisse fonc¬ 
tionner. 

Par ailleurs, la variable X contient l'équivalent numérique de 
la chaîne de caractères si celle-ci est numérique. Sinon X contient 
la valeur initiale 0. 

9500 ^ SET X=VAL(A$) 

9510 ^ X=0 

9520 TOR Y=1 TO LEN A$ 

9530 A?(Y)<"0" OR A$(Y)>"9" THEN GOTO 9570 

9540 LÇT X=X*1C+VAL A$(Y) 

9550 NEXT Y 
9560 RETURN 
9570 ^ X=0 
9580 RETURN 


L'exemple présenté plus haut a été modifié de façon à faire appel 
à ce sous-programme. Essayez de le contrecarrer et vous verrez 
qu'il est très fiable. Vous devrez chercher longtemps avant de le 
mettre en échec. 

100 PRINT "QUEL AGE AVEZ VOUS?" 

110 INPÜT A$ 

120 PRINT A$ 

130 GOSUB 9500 

140 ^ XOO THEN GOTO 200 

150 PRINT A$;"? CE N EST PAS UN AGE" 

160 GOTO 100 

200 .... 
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MACHINE A SOUS 

CAPACITE MEMOIRE NECESSAIRE : IK RAM 

Ce programme vous offre le moyen 
de tester vos réflexes ; tout dépend 
de la vitesse à laquelle vous êtes 
capable de repérer une combinaison 
gagnante. 

Le programme affiche progressi¬ 
vement une série de lignes compor¬ 
tant trois caractères chacune. 

Le jeu consiste à réunir le 
maximum de points en appuyant 
sur une touche quelconque à chaque 
fois qu'une combinaison gagnante 
est affichée. 

Votre score dépend de la rapidité 
de vos réflexes et des combinaisons 
arrêtées. 

Les règles sont les suivantes : 

* ? ? donne 2 points 
Deux caractères identiques donnent 5 points sauf : 

* * ? qui donne 10 points 

Trois caractères identiques donnent 50 points. 

Vous pouvez choisir au départ la vitesse de sélection, c'est-à- 
dire le temps pris par le programme pour déterminer si une touche 
a été pressée. Une vitesse de 50 vous laisse environ une seconde 
pour arrêter la combinaison gagnante. 

Une fois que vous aurez attrapé le coup, vous choisirez probable¬ 
ment une vitesse inférieure. La valeur 0 (ou même une valeur néga¬ 
tive ! ) ne vous permet pas d'arrêter le programme (sauf si vous 
utilisez la touche BREAK) ; en effet, la fonction INKEY$ n'aurait 
pas le temps d'-être exécutée. 

Appuyez sur la touche "Q" si vous désirez arrêter le jeu et 
connaître votre total. 

Un dernier point qui a son importance : si vous arrêtez une 
combinaison "non-gagnante", vous perdez dix points ! 
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10 ^ s=o 

20 PRINT "VITESSE?" 
30 INPUT F 
100 Z$="" 

110 FOR X=1 TO 3 


(initialisation du score 


(boucle principale 
(la roue tourne 


120 LET Z$=Z$+"*£+-=.$"(INr (RND*7)+1)+" "(.--et choisit 


3 carac¬ 
tères 


130 NEXT X 
140 SCROLL 
150 PRINT Z$; 

160 FOR X=1 TO F 

170 ^ 1NKEY$<>"" THEN GOTO 200 

180 NEXT X 

190 GOTO 100 

200 INKEX$="Q" THEN GOTO 1000 
210 LET W=-10 


(affiche les caractères 
(temps de réponse autorisé 

(pas de réponse-relance la roue 
(fin du jeu ? 

(pénalisation 


220 ^ Z${!)="*" THEN LET W=2 (calcule le score 
230 ^ Z$(1)=Z$(3) OR Z$(3)=Z$(5) OR Z$(1)=Z$(5) 

240 ^ Z$(1)=Z$(3) ^ Z$(l)="*" THEN LET W=10 
250 ^ Z$(1)=Z$(3) ^Z$(1)=Z$(5) THEN LET W=50 
300 PRINT "DaSINE ";W (affiche les points 

310 SCROLL 

320 LET S=S+W (actualise le total 

330 GOTO 100 

1000 PRINT "VOUS MARQUEZ ";S 


Si vous possédez un ZX80, effacez la ligne 180 et modifiez la 
ligne 160 de la façon suivante : 

160 PAUSE F 

Une extension 16K permet d'apporter quelques améliorations à la 
version de base. En ajoutant les lignes ci-dessous, vous pouvez 
entre autre déterminer la durée du jeu dès le début. 

Le déroulement du jeu est accéléré quand vous marquez des points 
il est au contraire ralenti si vous en perdez. Le jeu consiste à 
réunir le maximum de points en un certain laps de temps (par exem¬ 
ple : 2 mn). 

Les lignes suivantes doivent être ajoutées au programme précé¬ 
dent, sauf la ligne 20 qui vient remplacer la ligne originale : 
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1 16K MACHINE A SOUS 

2 REM ****************** 


20 PRINT "VITESSE INITIALE?" (change le message 


35 IF F<1 THEN GOTO 20 


(vitesse correcte ? 


40 PRINT "DUREE DU JEU? (I^N) " 
50 INPUT N 

60 ^ N<1 OR N>10 THEN GOTO 40 
70 POKE 16437,128tN*12 


(durée ? 

(durée correcte ? 
(top chrono 


105 ^ PEEK 16437=128 THEN GOTO 2000 de temps est-il écoulé ? 

325 T .RT F=F-(W/10) (modifie la vitesse du jeu 

327 IF F<1 THEN LET F=1 (vérifie la vitesse 

1010 STOP din du jeu 

2000 SCROLL 

2010 PRINT "*** TEMPS ECOULE /^**” 

2020 SCROLL 
2030 GOTO 1000 
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LE ZX 81 ET LE JEU DE 

L’AVENTURE 

ALZAN, CITÉ INTERDITE 


CAPACITE MEMO IRE NEC E SSAIRE : 16K RAM 

Le programme présenté ici vous permet 
de créer votre propre jeu de l'aventure. 
L'exemple fourni a pour but de mon¬ 
trer le processus utilisé tout en 
vous divertissant par la même oc¬ 
casion . 



Si vous connaissez déjà toutes 
les règles du jeu de l'aventure, 
les paragraphes suivants n'ont 
pas beaucoup d'intérêt pour vous. 




A l'origine, le jeu de l'aventure 
a été conçu pour des ordinateurs 
bien plus importants et bien plus 
rapides que le ZX81, leur capacité 
mémoire pouvant atteindre 256K octets 
(de quoi laisser rêveur...). 

L'arrangement interne restant fixe, le déroulement du jeu ne 
varie pas d'une partie à l'autre. Cela semble quelque peu limité, 
mais de toute façon la version originale est si vaste que vous 
risqueriez fort de vous en lasser avant de connaître toutes les 
ficelles. 


Comment se présente le jeu lui-même ? Il se déroule dans un 
labyrinthe où est dispersé un certain nombre de trésors. A vous 
d'en réunir le plus possible, sachant que certains de ces trésors 
ne peuvent être pris facilement. 

Citons pour exemple la perle enfermée à l'intérieur d'une huître 
géante ; celle-ci ne s'en sépare pas si facilement et il faut 
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d'abord trouver l'astuce pour lui faire ouvrir ses deux valves i 

Votre emplacement vous est reprécisé à chaque fois que vous 
jouez ; l'ordinateur attend ensuite que vous entriez deux mots- 
clés (au maximum). 

Par exemple, pour se diriger dans une direction donnée, tapez 
ALLER SUD, MARCHER EST ou GRIMPER ICI, etc... Pour prendre un 
objet à portée de la main, tapez par exemple PRENDRE OR, PRENDRE 
VASE, etc... 

Ces objets ne sont pas obligatoirement des trésors mais peuvent 
s'avérer utiles un peu plus tard au cours du jeu pour franchir un 
obstacle. 


Pour corser le tout, des nains apparaissent aléatoirement çà et 
là pour vous lancer des poignards. Si l'un de ces poignards vous 
atteint, vous êtes tué sur le coup ! Vous avez quand même la pos¬ 
sibilité de vous défendre avec une hache ou tout autre arme qui 
vous tombe sous la main. 

La version originale étant trop vaste pour être exécutée par le 
ZX81, nous avons réuni quelques idées d'inspirations différentes 
pour créer une version adaptable à plusieurs types de jeux. 

Vous pouvez ainsi créer votre propre aventure et - pourquoi 
pas ? - l'échanger avec celle d'un ami. 


Le jeu se présente en trois parties : 

Le programme principal qui contrôle le déroulement du jeu 

et vérifie si toutes les instructions 
sont suivies correctement. 


Le SOUS -programme de qui vous permet de créer votre propre 

chargement jeu. 


La partie informations qui détermine l'originalité de chaque 

jeu. Elle renferme les descriptions, 
les mots-clés, les objets, etc... 


CREATION DE VOTRE AVENTURE PAS A PAS 

Si vous expérimentez ce jeu pour la première fois, il est préfé¬ 
rable de commencer par entrer le programme présenté dans ce chapi¬ 
tre et de l'exécuter. Ceci vous donnera une meilleure idée des 
règles du jeu et vous permettra de suivre plus facilement les ex¬ 
plications qui suivent. 

Les différentes étapes à suivre dans la création du jeu sont les 
suivantes : 

1- Entrez en mémoire le programme principal avec le sous-programme 
de chargement ; ces deux parties constituent la base même de 
tous les jeux que vous pourrez créer et sont donc à sauvegarder 
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sur cassette. 

2- Entrez en mémoire les messages et les descriptions (vous pouvez 
utiliser "Alzan, cité interdite" ou le petit exemple-test pré¬ 
senté plus loin). 

3- Tapez RUN 9000 pour démarrer le sous-programme de chargement 
puis entrez en mémoire tous les tableaux et variables corres¬ 
pondant au jeu choisi. Le sous-programme de chargement sauve¬ 
garde automatiquement le programme à votre place. 

4- Démarrez le jeu en introduisant la commande GOTO 1 : en général 
cette opération est inutile dans la mesure où le sous-programme 
de chargement démarre lui-même le jeu une fois le programme 
principal chargé. 


FONCTIONNEMENT DU PROGRAMME PRINCIPAL 


Les paragraphes suivants semblent assez denses au premier abord ; 
cependant, vous comprendrez rapidement la conception du programme 
si vous suivez 1'exemple-test pas à pas en vous aidant des commen¬ 
taires . 

Pour que le jeu soit complet, la partie Informations (une des 
trois parties mentionnées un peu plus haut) doit contenir plusieurs 
rubriques. 

Pour vous aider à comprendre la structure de cette partie Infor¬ 
mations, n'hésitez pas à vous référer à 1'exemple-test présenté 
plus loin. 

Les rubriques nécessaires sont : 

1- Les descriptions du labyrinthe 

Chaque salle du labyrinthe porte un numéro compris entre 1 et 
le nombre total de salles. Le programme principal effectue un 
branchement au sous-programme démarrant à la ligne 8000+ (salle 
*10), ce qui affiche la description de la salle correspondante. 
Ainsi la salle n° 1 est décrite à la ligne 8010, la salle n° 2 
à la ligne 8020, la salle n° 3 à la ligne 8030 etc... 

Chaque description de salle doit être suivie d'une instruction 
RETURN (lignes 8015, 8025, 8035 ...). 

2- Les messages 

Certains messages sont directement affichés par le programme 
principal si besoin est (voir un peu plus loin). Ce type de 
message peut avoir des motivations très variées ; par exemple, 
si les mots-clés "ALLUME LAMPE" sont entrés alors que la lampe 
est déjà allumée, un message approprié peut en avertir le 
joueur. De même que pour les salles, chaque message porte un 
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numéro différent : la ligne 7010 contient le message n° 1, la 
ligne 7020 le message n° 2 etc... Dans ce cas également, chague 
message doit être suivi d'une instruction RETURN (7015, 7025...). 

3- Les objets 

Au cours du jeu le joueur a la possibilité d'utiliser un cer¬ 
tain nombre d'objets. Ceux-ci peuvent être simplement transpor¬ 
tés ou manipulés d'une certaine façon. Chaque objet est carac¬ 
térisé par deux variables indicées : la première,0(), indique 
au programme principal l'emplacement initial de l'objet (numéro 
de salle). La deuxième , contient la description de l'objet, 
de 16 caractères au plus. Cependant, rien ne vous empêche de 
modifier la longueur maximum de pour un autre jeu si besoin 
est. Le nombre total d'objets est affecté à la variable O. Un 
objet qui n'existe pas initialement doit porter un numéro de 
salle égal à zéro. 

4- Le vocabulaire 

Le tableau de vocabulaire contient une liste de mots-clés re¬ 
connaissables par le programme en tant que commandes. Chacun 
d'eux est accompagné du nombre à deux chiffres qui représente 
le code dans lequel il sera traduit au moment voulu. Ainsi, 
deux mots-clés peuvent être traités en même temps. Prenons par 
exemple les mots "QUITTER" et "SORTIR" : ceux-ci ont la même 
signification et auront donc le même code à deux chiffres. 

Les douze premiers mots-clés sont réservés aux commandes de 
direction (NORD, SUD, HAUT, BAS...) ; bien entendu, il ne s'agit 

pas là d'une règle stricte. 

Les mots-clés, d'une longueur maximum de six caractères, sont 
regroupés dans le tableau défini par la variable (). Les deux 
premiers caractères correspondent au "code" à deux chiffres du 
mot-clé, ce dernier étant représenté par les quatre autres ca¬ 
ractères. 

Ne pas oublier de faire précéder les codes inférieurs à 10 par 
un zéro (exemple : 07). 

Le nombre total de mots-clés réunis dans le tableau défini par 
la variable V^() est affecté à la variable V. 

5- Les couloirs 

Les couloirs souterrains faisant communiquer les différentes 
salles sont regroupés dans le tableau défini par la variable 
( ) . A chaque salle du labyrinthe correspond une ligne du 
tableau indiquant le nombre (et la direction) des couloirs per¬ 
mettant de sortir de la salle. 

Chaque couloir est défini par quatre caractères ; les deux pre¬ 
miers représentent le code du mot-clé correspondant à la direc¬ 
tion. Les deux autres représentent le numéro de la salle où 
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aboutit ce couloir (ne pas oublier de faire précéder le numéro 
de salle par un zéro s'il est inférieur à dix). Le code "00" 
clôt la liste de couloirs pour la salle considérée. Les couloirs 
de la salle n° 1 sont définis dans le contenu de la variable 
(1). Un exemple pourrait être : 

1^(1)="0127061300" 

Le code 01 entraînera le programme principal à la salle n° 27 
alors que le code 06 l'entraînera à la salle n° 13. Les deux 
zéros en fin de chaîne closent la liste de couloirs partant 
de la salle n° 1. La variable R contient le nombre total de 
salles. La variable contient 32 caractères au maximum, ce 
qui convient parfaitement dans la majorité des cas. 

6- Les actions 

Regroipées dans le tableau défini par la variable A^, elles ne 
sont effectuées que lors de l'entrée de certains mots-clés (ou 
combinaisons de mots-clés). Remarquez que la direction des mou¬ 
vements est déterminée par "le tableau des couloirs" (voir 
ci-dessus). Chaque ligne du tableau répond au schéma général 
suivant : 

Code du mot-clé n° 1 (ou 00 si tous les mots conviennent) 

Code du mot-clé n° 2 (ou 00 si tous les mots conviennent) 

Conditions supplémentaires 

Actions à réaliser si toutes les conditions sont réunies. 

Un exemple illustrant la dernière partie du tableau pourrait 

être : "Si les mots-clés "ALLUME LAMPE" sont entrés alors que 

la lampe est déjà allumée, afficher le message n° 5". 

Vous trouverez un peu plus loin toute une liste de conditions 
et d'actions possibles. D'une façon générale, celles-ci sont 
de la forme : 

AABBCX) 1C02. AO 1A02A0 3. 

AA et BB représentent le code respectif des deux mots-clés, COI 
et C02 les conditions supplémentaires (leur nombre pouvant être 
supérieur à 2). La deuxième partie de la chaîne de caractères 
représente les codes correspondant aux actions appropriées (AOl, 
A02, A03 ; rien ne vous empêche d'en ajouter d'autres si vous 
le désirez). Remarquez que les deux zones sont chacune terminées 
par un point. Un exemple d'application complet vous est présen¬ 
té un peu plus loin. 

Le nombre total de lignes du tableau est affecté à la variable 

A. 

Chaque liane du tableau défini par la variable A^() est limitée 
à 31 caractères au maximum. Si cela se révélait insuffisant, 
vous pouvez contourner la difficulté en introduisant une action 
qui "active"un pointeur momentané. D'autres lignes peuvent être 
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ajoutées au tableau défini par la variable () pour contrôler 
le pointeur qui déclenchera alors l'exécution. L'opération ter¬ 
minée, le pointeur est désactivé. Cette astuce a été mise à 
profit dans le programme "Alzan, cité interdite". 

7- Les conditions 

Ce tableau, défini par la variable C^() ressemble au précédent ; 
la seule différence réside dans l'absence de mots-clés. Il est 
passé en revue à chaque fois qu'une commande est entrée, ce qui 
vous permet de parer à certaines éventualités (par exemple, 
l'intervention d'un nain ou l'affichage de certains messages 
résultant d'une situation particulière). Le nombre total de 
lignes du tableau est affecté à la variable C. Chaque ligne du 
tableau est de la forme : 

C01C02.A01A02. 

COI, C02, AOI... sont définis de la même façon que pour le 
tableau d'actions. Remarquez que des points terminent les deux 
zones ici également. 

Les différentes conditions que vous pourrez utiliser sont repré¬ 
sentées par un code à trois caractères ; le premier est une 
lettre correspondant a la condition voulue. Les deux autres 
(notésschématiquement nn dans ce qui suit) représentent un para¬ 
mètre à deux chiffres associé à cette condition. 

Test effectué 

nn est le numéro de la salle en cours 
L'objet nn est présent (ou transporté) 
L'objet nn est absent (ou non transporté) 
L'objet nn est transporté 
Le pointeur nn est "activé" 

Le pointeur nn n'est pas activé 
Le compteur régressif nn a atteint la 
valeur 1 

Le nombre aléatoire (compris entre 1 et 
99)est inférieur à nn. 


Code conditions 

A 

B 

C 

D 

E 

F 

G 

H 
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Code actions 


Action effectuée 


A 

B 

C 

D 


E 

F 

G 

H 

I 

J 

K 


L 

M 

N 


O 

P 


Q 


Affiche la liste des objets transportés 
Transporte l'objet nn 
Pose l'objet nn 

Affiche le texte du message nn (résultat 
de l'exécution de l'instruction GOSUB 
"ligne 7000+(nn*10)" 

"Active" le pointeur nn 
Désactive le pointeur nn 

Fixe le compteur régressif nn à la valeur 
mm 

Inverse les lignes nn et nn+1 dans le 
tableau des objets 

Pose l'objet nn dans le n° de salle en 
cours 

Met le n° de salle contenant l'objet nn 
à "00" 

Fixe le numéro de salle en cours à la 
valeur nn (c'est-à-dire oblige le jeu à 
continuer à la salle nn) 

Affiche "D ACCORD" et attend une nouvelle 
commande 

Attend une nouvelle commande 
Attend une nouvelle commande, mais le 
tableau des conditions n'est pas passé en 
revue d'abord 

Affiche la description de la salle en 
cours 

Interrompt le jeu (si le joueur répond 
"OUI" à la question "ETES VOUS SUR?", le 
jeu est arrêté) 

Interruption du jeu 


Un exemple d'application vous est présenté dans les lignes suivan¬ 
tes. Le mot-clé "PRENDS" a pour code le nombre 15 et le mot-clé 
"OR" le nombre 22. L'objet "LINGOT" a le code numéro 3. Dans le 
tableau des actions pourrait figurer une ligne du type : 

1522B03.B03L. 

Cette ligne signifie que les mots-clés 15 et 22 doivent être entrés 
(PREND OR) et que la condition B03 doit être satisfaite (c'est-à- 
dire si l'objet est présent dans la salle ou est transporté). Si 
tout est en ordre, les actions B03 et L sont exécutées ; l'objet 
n° 3 est alors transporté. L'ordinateur affiche le message 
"D ACCORD" et attend une nouvelle commande. 
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Le programme permet l'utilisation de dix pointeurs différents. Ils 
peuvent être "activés", "désactivés" ou contrôlés (se reporter au 
paragraphe Objets). Au début du jeu, ils sont tous à l'état désac¬ 
tivé . 


Les pointeurs 1, 2 et 3 ont un rôle particulier dans le programme 
principal alors que les sept autres restent disponibles. Les trois 
premiers pointeurs sont : 

1 : indique le nombre total d'objets transportés 

2 : indique au programme principal si la salle est éclairée 

ou non, c'est-à-dire si une lampe est nécessaire 

3 : indique au programme principal si la lampe est allumée 

ou non. 

Si la salle est plongée dans l'obscurité et que la lampe est 
éteinte, le programme principal affiche le message suivant : 

"ON N Y VOIT RIEN - MIEUX VAUDRAIT ALLUMER POUR 
EVITER LES ENNUIS" 

Le pointeur n° 2 est désactivé quand le joueur est au-dessus du 
sol, activé quand il est en-dessous. 


Il existe également cinq compteurs régressifs à usage général. 

Le code actions G permet de les initialiser à n'importe quelle 
valeur à deux chiffres. Deux paramètres doivent être définis avant 
l'introduction du code G, à savoir le numéro du compteur et sa va¬ 
leur initiale. Par exemple la ligne G0105 initialise le compteur 
n° 1 à la valeur 5. Les compteurs 1 à 4 sont automatiquement décré¬ 
mentés dans certaines conditions définies par le programme princi¬ 
pal : 


Compteur n° 1 
Compteur n° 2 

Compteur n ° 3 


Compteur n° 4 


décrémenté à chaque fois qu'une commande est 
entrée 

décrémenté à chaque fois que le pointeur 
n° 2 est activé (c'est-à-dire quand le jeu 
se situe dans une salle obscure) 
décrémenté à chaque fois que le pointeur est 
activé alors que le pointeur n° 3 ne l'est 
pas. Ceci se produit quand le joueur se trou¬ 
ve dans une salle obscure sans lampe allumée. 
Vous avez ainsi la possibilité de précipiter 
le joueur dans les oubliettes s'il bouge plus 
de trois fois dans l'obscurité totale, 
décrémenté à chaque fois qu'une commande est 
entrée (comme pour le compteur n° 1). 


La condition n° 7 contrôle le contenu des compteurs régressifs : 
dès que l'un d'eux atteint la valeur 1, vous pouvez déclencher une 
série d’actions. 


102 



LE PETIT LIVRE DU ZX81 


Ne pas oublier les deux points suivants : 

1- Cinq objets au maximum sont transportables en une seule fois 
(ligne 4100 du programme principal). Des objets supplémentaires 
ne peuvent être pris que si, et seulement si, d*autres objets* 
sont posés d'abord. 

2- Le programme principal vérifie avant d'exécuter l'action B si 
le joueur ne transporte pas déjà un objet. De même avant d'exé¬ 
cuter l'action C, il vérifie si le joueur transporte bien un ob¬ 
jet. Cela permet d'économiser un nombre de lignes intéressant 
dans le tableau des actions. 


A la fin du listing de ce programme, vous trouverez un exemple- 
test (portant sur 6 salles seulement). Il vous permet de suivre le 
déroulement des opérations et de vérifier si votre nouveau pro¬ 
gramme fonctionne. 


1 Rm AVENTURE SUR ZX81 

2 REM ****^************ 

10 DM S(10) 

20 DM C(5) 

30 ^ SALLE=1 
40 ^ PS (2,2) 

50 DM 0(0) 

60 FOR X=1 TO 0 
70 ^ 0(X)=Q(X) 

80 NEXT X 
90 RAND 

100 M NOT S(2) THEN GOIO 200 
110 M C(2) THEN LET C(2)=C(2)-1 
120 M.S(3) THEN GOTO 200 
130 PRINT "ON N Y WIT RIEt'î-r'TEUX VAUDRAIT", 
"ALLUMER POUR EVITER LES ENNUIS." 


(dimensionne la variable pointeur 

(dimensionne le compteur régres- 

si f 

(initialisation du nombre de 

salles 

(mots-clés 1 et 2 
(tableau des objets 
(disposition initiale des objets 


(fait-il noir ? 

(compteur régressif d'obscurité 
(lampe allumée ? 


140 ^ C(3) THEN LET C(3)=C(3)-1 
150 GOTO lOOU 

200 ^ DESCRIPTION DE LA SALLE 
210 P RINT 

220 GQSUB SOOOtSALLE 

300 _L^ F=0 

310 TOR X=1 TO 0 

320 0(X)<>SALLE IHEN GOTO 500 

330 ^ F THEN GOTO 400 

340 PRINT ,/'IL Y A AUSSI:" 

350 F=1 

400 PRINT ” ";0$(X) 

500 NEXT X 


(comptage régressif si lampe non 
(attend une commande allumée 


(affiche la description de la 
(réactive le drapeau salle 

(affiche les objets présents 
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1000 

1010 

1020 

1100 

1110 

:i20 

1130 

1140 

1150 

1160 

1170 

1200 

1210 

1220 

12j0 

1240 

1300 

1310 

1320 

1600 

1610 

1620 

1630 

1640 

1650 

1660 

1700 

1710 

1900 

1910 

2000 

2010 

2100 

2110 

2120 

2130 

2300 

2310 

2320 

2330 

2340 

2350 

2400 


ACCEPTATICN DE LA CXlM^ANDEfettend une commande 
LCT l‘=l 
GlCO 2000 


(vérifications automatiques prio- 
^ ^ , ritaires 

(comptage régressif a chaque com¬ 
mande 


IF C(l) THEN LET C(1)=C(1)~1 (comptage régressif à chaque corn- 
If C(4) THEN LÊT C(4)=C(4)-1 ■ - •' 


PRINT 
INP'J-'' Y? 

CLS 

LET Y=C 
PRINT ">";Y? 

LL'i P$(2)="Ü0" 

FOR W=1 ’IÜ 2 
GOSÜB 60UÜ 

IF Y>=L£M Y$ (3QTQ 1300 (tout est analysé ? 

IF P$(W}="0Û" '111 EN GCIIQ 1210 (le mot-clé est-il trouvé ? 

NEXT W (mot-clé suivant 

IF P$ (1) <>"00" THEN GOTO 1600(y a-t-il au moins un mot ? 


(comptage régressif 
(signe d'invite-utiliser le carac- 
(entrée de la commande^^^^ inverse 

(analyse la commande 
(affiche la commande en haut 

(contrôle jusqu'à 2 mots-clés 


PRINT " PARDON?" 

GaiO 100 

REM OOSITROLE DU PDUVEMHSIT 
LET Z=1 

LET T$=M$ (SALLE) (Z TO Z+1) 

T$="00" THEN GOTO 1900 
^ T$<>P$(1) THEN GOTO 1700 
LET SALLE=:VAL (IV;^(SALLE) (Z+2 TO Zt3) ) 


(affiché si rien n'est trouvé 
(essaye encore 

(analyse à présent le tableau des 

mouvements 

(donne mot-clé correspondant 
(fin de ligne ? 

(vérifie la correspondance avec le 


mot-clé n° 1 


GOlO 100 
LET Z=Z+4 
GOIQ 1620 
LET T=0 
LET O0RRESP=0 

REM CONTROLE DES (CONDITIONS 
LET CP=0 
LET CP=CPtl 

^ NOT T THRV GOTO 2300 
LET E$=C$(CP) 

GOTO 2600 

^ CP<=A THEN GOTO 2400 
IF OORRESP THEN GOTO 1000 
PRINT "IMPOSSIBLE" ; 

^ VAL (P$(l))<13 THEN PRINT "PRENDRE CETTE DIRECTKCN"; 

PRINT 

QQPO 100 (essaye encore 

^ A$ (CP) (I TO 2)<>P$(I) THEN GOTO 2100 

(vérifie la correspondance avec le 

mot clé n° 1 


(continue dans une nouvelle salle 
(essaye la correspondance suivante 

(active le drapeau "Actions" 

(pas de correspondance encore 

trouvée 

(initialise numéro de tableau 

(analyse le tableau des actions ? 
(tableau des conditions 

(tout a été analysé ? 
(correspondance trouvée ? 

(affiche le message 
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2410 

2420 

2430 

2600 

2610 

2700 

2710 

2720 

2800 

2810 

2820 

2830 

2900 

2905 

2910 

2915 

2920 

2925 

2930 

2935 

2940 

2945 

2950 

2955 

2960 

2965 

2970 

2975 

3000 

3010 

3020 

3100 

3110 

3120 

3200 

3210 

3220 

3230 

3240 

4000 

4010 


LET Y$=A$(CP)(3 TO 4) 

IF Y$<>"00" Y$<>P$(2) THSN 

LET E$=A$(CP) (5 TO ) 

REM CONDITIONS 
LET E=1 

^ E$(E)="." THEN GOTO 3000 
LET TYPE^QQDE (E$(E))-38 
LET N=VAL (E$(E-1-1 TO E+2) ) 
GOSUB 2900+TYPE*10 
IF NOT OK THEN GOIQ 2100 
LET E=E+3 
GOTO 2700 
LET OK= (N^SALLE) 

RETORN 

LET OK=(0(N) =SALLE OR O(N)<0) 
RETURN 

LET OK=(0(N)<>SALLE ^ 0(N)> 
RETURN 

LET OK=(O(N)<0) 

RETURN 
LET OK=S(N) 

RETURN 

LET OK=(NCrr S (N)) 

RETURN 

LET OK=(C(N)=l) 

RETURN 

I^OK=((INT {RND*100)+1)<=N) 

RETURN 

REM ACTIONS 

LET aORRESP=l 


(mot-clé n° 2 
GOTO 2100 

(obtient conditions ou actions 

(analyse à présent les conditions 
(un point dot les conditions 
(obtient le code de la condition 
(obtient le paramètre 
(détermine si vrai ou faux 

(essaye la condition suivante 

(condition A-se reporter au texte 
(condition B 

=0) (condition C 
(condition D 

(condition E 
(condition F 
(condition G 
(condition H 

(exécute à présent les actions 


LET E=Etl 

^ E$(E)="." THEN GOTO 2100 (terminé ? 

LET TYPE=OODE (E$(E))-38 (obtient le code action 

^ E$(Etl)<>”." THEN LET N=VAL (S$(E+1 TO Et2)) 

(obtient un paramètre 


LET BREAK=0 

GOSUB 4000tTYPE*100 

IF BREAK THEN GOTO BREAK 

LET E=E-l-3 

GOTO 3100 

PRINT 

PRINT "VOUS TENEZ:" 


(retourne au numéro de ligne 
(exécute l'action 
(va à la ligne considérée 
(action suivante 

(action A - voir tableau 
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4020 F=1 

4030 FOR X=1 TO 0 

4040 IF O(X)>=0 THEN GOTO 4070 

4050 PRINT " ”;0$(X) 

4060 ^ F=0 
4070 NEXT X 

4080 IF F IHEN PRINT " RIEM." 

4090 I^ BREAK=1ÛÜ 
4095 RETURN 

4100 IF 3(1)<5 THEN GOTO 4140 (action B 

4110 PPJNT "VOUS NE POUVEZ PORTER PLUS" 

4120 I^ BREAK=100 
4130 RETURN 

4140 IF 0(N)=-1 THEN GOTO 4180 
4150 ^ 0(N)=-1 
4160 ^ S(1)=S(1)+1 
4170 RETURN 

4180 PRINT "VOUS L AVEZ DEJA" 

4190 GOTO 4120 

4200 ^ 0(N)=-1 THEN GOTO 4240 (action C 

4210 PRINT "TOUS N AVEZ PAS ";Oï{(N) 

4220 I^ BREAK=100 
4230 RETURN 
4240 ^ 0(N)=SALLE 
4250 ^ S (1) =£(!)-! 

4260 RETURN 

4300 PRINT (action D 

4310 GOSUB 7000+N*10 
4320 RETURN 

4400 I^ S(N)=1 (action E 

4410 RETURN 

4500 ^ S(N)=0 (action F 

4510 RETURN 

4600 I^ C(N)=VAL (E$(E+3 TO E+4)) (action G 
4610 I^ E=E+2 
4620 RETURN 

4700 X=0(N) (action H 

4710 ^ 0(N)=0(N+1) 

4720 ^ 0{N+1)=X 
4730 RETURN 

4800 I^ 0(N)=SALLE (action I 

4810 RETURN 

4900 ^ O(N)<0 THEN LET S(1)=S(1)-1 (action J 
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4910 

LET O(N)=0 



4920 

RETURN 



5000 

LET SALLES 

(action 

K 

5010 

RETURN 



5100 

PRINT "D .ACODRO" 

(action 

L 

5200 

LET BREAK=1000 

(action 

M 

5210 

RETURN 



5300 

LET BREAK=1100 

(action 

N 

5310 

RETURN 



5400 

LET BREAK=10Û 

(action 

O 

5410 

RETURN 



5500 

PRINT "ETES VOUS SUR? 

(action 

P 

5510 

INPUT W$ 



5520 

PRINT W$ 



5530 

IF CHR$ (XDE W$<>"Y'' THEN RETURN 




5600 GOTO 9999 

6000 RE^ ;^ÀLYSE LE MOT 

6010 Dm W$(4) 

6015 ^ P$(W)="00" 

6020 GOSUB 6600 
6025 IF FIN THLN RETCRN 
6030 FOR 0=1 TO 4 
6040 ^ W$(Q)=Y$(Y) 

6050 œSUB 6500 

6060 m FIN THEN GOTO 6100 

6070 NEXT 0 

6080 GOSCB 6500 

6090 m NOT FIN THEN GOTO 6080 

6100 m W$=" " THEN RETURN 

6110 TOR 0=1 TO V 

6120 m W$=V$(0)(3 TO ) THEN GOTO 

6130 NEXT 0 

6140 RETURN 

6200 I^ P$(W)=V$(0) ( TO 2) 

6210 RETORN 

6500 Y=Y+1 

6510 FIN=(Y>UEN Y$) 

6520 ^ FIN THEN RETURN 
6530 ^ FIN=(Y$(Y)=" ") 

6540 RETURN 

6600 Y=Y+1 

6610 FIN=(Y>LEN Y$) 

6620 IF FIN THEN RETURN 

6630 IF Y$(Y)=" " THEN GOTO 6600 


6200 


(action Q 

(quatre premières lettres 

("réponse" obtenue si pas de 
réponse trouvée 
(trouve le premier caractère 

(fin de commande ? 

(obtient quatre lettres 


(vérifie si c'est la fin du 

mot 


(cherche la fin du mot 


(aucun mot entré 

(analyse le tableau de vocabu¬ 
laire 


(inconnu dans ce tableau 
(obtient le code du mot-clé 

(vérifie si fin de mot 


(cherche la fin du mot 
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6640 RETURN 

7000 R^ MESSAGES ACTIŒS 

7001 REM MESSAGE NO. 1 OBTENU PAR 

7002 Rm QOSUB LIOSIE 7010 

7999 RETURN 

8000 R^ DESCRIPTION DES SALLES 

8001 REM SALLE 1 OBTENUE PAR 

8002 REM QOSUB LIOSfE 8010 
9999 STOP 


Avant de commencer à jouer, vous devez encore adjoindre deux par¬ 
ties au programme principal, celui-ci constituant en quelque sorte 
le "cerveau du jeu". La première partie est le "sous-programme de 
chargement" du jeu ; celui-ci initialise certaines variables et la 
totalité des tableaux (tableaux des objets, des couloirs, de vocabu¬ 
laire, d'actions et de conditions). 

Le jeu lui-même constitue la deuxième partie ; celle-ci a été 
étudiée pour être rapidement adaptée à vos versions personnelles. 

Deux mini-aventures vous sont proposées un peu plus loin. Leur 
chargement et leur exécution mettent en évidence les relations 
existant entre les différentes parties de ce programme de jeu (sans 
compter le plaisir de jouer !). 


lÆ SOUS-PROGRAMME DE CHARGEMENT 


Placé à la suite du programme principal, ce sous-programme peut 
être effacé une fois les tableaux entrés en mémoire. Cependant, il 
est beaucoup plus prudent de ne pas effectuer cette dernière opéra¬ 
tion avant de s'assurer que tout est correct. 

Imaginez votre désarroi si vous avez effacé le sous-programme 
alors que des mots ont été oubliés dans le tableau de vocabulaire 
(ou tout autre tableau). 

Lors de son exécution le sous-programme vous demande en premier 
lieu combien de lignes doit comporter chaque tableau (nombre de 
mots dans le tableau de vocabulaire par exemple). La réponse fournie 
détermine la dimension des tableaux avant l'introduction des lignes 
(une par une). 

Un arrêt entre chaque tableau créé permet d'effectuer la vérifi¬ 
cation des éléments entrés. Si le contenu d'un tableau s'avère 
incorrect, il est alors inutile de tout retaper ; il suffit de 
remplacer le tableau incriminé. 
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9000 REM CHARGEMENT DES TABLEAUX 
9010 

9020 PRINT "NOMBRE D OBJETS?" 
9030 INPUT O 
9040 Q(0) 

9050 ^ 0${0,16) 

9080 POR X=1 TO O 
9090 SCROLL 

9100 PRINT "S AT.TE NO. ";X;" ?" 
9110 INPUT Q(X) 

9120 PRINT Q(X) 

9130 SCROLL 

9140 PRINT "DESCRIPTION?", 

9150 INPUT 0$(X) 

9160 PRINT 0$(X) 

9170 NEXT X 

9199 STOP 

9200 ^ 

9210 PRINT "NOMBRE DE BUTS?" 

9220 INPUT V 
9230 DM V$(V,6) 

9240 FOR X=1 TO V 
9250 SCROLL 
9260 INPUT V$(X) 

9270 PRINT V$(X) 

9280 NEXT X 

9299 STOP 

9300 C^ 

9310 PRINT "NOMBRE DE SALLES?" 
9320 INPUT R 
9330 DIM M$(R,32) 

9340 FOR X=1 TO R 
9350 SCROLL 
9360 INPUT M$(X) 

9370 PRINT M$(X) 

9380 NEXT X 

9399 STOP 

9400 CLS 
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9410 PRINT "NOMBRE DE OONDITIONS?" 

9420 INPUT C 
9425 C=C+1 

9430 DM C$(C,21) 

9440 FOR X=1 TC C-1 
9450 SCROLL 
9460 INPUT C$(X) 

9470 PRINT C$(X) 

9480 NEXT X 

9490 ^ C$(C)=",N." 

9499 STOP 

9500 ^ 

9510 PRINT "NOMBRE D ACTIONS?" 

9520 INPUT A 
9530 DM A$(A,31) 

9540 FOR X=1 TC A 
9550 SCROLL 
9560 INPUT A$(X) 

9570 PRINT A${X) 

9580 NEXT X 

9599 STOP 

9600 

9610 PRINT "ENTRER LE JEU DE L AVENTURE" 
9620 INPUT N$ 

9630 PRINT ,, "DEMARRER LA CASSETTE..." 
9640 PAUSE 150 
9650 CI£ 

9660 SAVE N$ 

9670 GOTO 1 
9999 STOP 


Avant de vous lancer au coeur de l'action, entrez l'exemple-test 
suivant. Il vous donnera une idée du fonctionnement de ce programme 
et vous montrera comment créer le vôtre éventuellement. Il vous 
permet également de tester si des erreurs ont été introduites lors 
du chargement. 
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EXEMPLE-TES T 

Ce petit exemple d'application du jeu de l'aventure prend place 
dans un labyrinthe comprenant six salles. Une lampe a été placée 
dans la salle n° 1, seule salle située au-dessus du sol. Le but 
consiste à récupérer le lingot d'or entreposé dans la cave n° 6 
pour le ramener à la salle n° 1. 

Malheureusement, pour cela il faut franchir une porte rouillée 
(cave n° 4) qui ne veut pas s'ouvrir. 

La cave n° 5 renferme un vase alors que la cave n° 6 contient 
une mare d'huile. Manifestement la seule action logique consiste 
à remplir le vase d'huile pour aller graisser les gonds de la 
porte ! L'ouvrir et prendre le lingot devient alors un jeu d'en¬ 
fant. 

Plan du labyrinthe : 



Les pointeurs 2 et 3 servent à représenter respectivement "l'obs¬ 
curité des salles" et la position allumée ou éteinte de la lampe. 
Si vous posez la lampe allumée quelque part, elle est automatique¬ 
ment pointée comme éteinte ; vous ne pouvez donc la laisser dans 
un coin pendant que vous errez dans le souterrain. 

Le pointeur n° 5 indique si la porte a été huilée ; le pointeur 
n° 6 est mis à un lorsque la porte est ouverte. 
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Entrez les messages et la description des salles, puis la commande 
RUN 9000 pour démarrer le sous-programme de chargement ; celui-ci 
entre sous forme de tableaux les objets, le vocabulaire, les cou¬ 
loirs, les conditions et les mots-clés correspondant aux actions. 

Attention ! Une fois que vous avez tout chargé en mémoire, 

SAUVEGARDEZ LE PROGRAMME sur cassette (SAVE) 1 !i 

Lancez l'exécution du programme en entrant la commande GOTO 1 
(sinon le contenu de toutes les variables serait effacé). En prin¬ 
cipe, si vous suivez le processus indiqué ci-dessus, le programme 
principal doit être entré sans problèmes sérieux. 

Une fois que vous aurez tout bien en mains, rien ne vous empê¬ 
chera plus d'imaginer vos propres jeux. 

Un détail important : le tableau des couloirs ne comporte pas de 
tunnels reliant les salles 1 et 2. A la place, une ligne contenant 
le mot-clé approprié (06) a été ajouté dans le tableau des actions. 
Par ce moyen il est possible de s'assurer que le pointeur "d'obscu¬ 
rité" est mis à 1 chaque fois que le mot-clé "DESCENDRE" est entré 

au niveau de la salle n° 1. 

De la même manière, il n'y a pas lieu d'entrer un couloir reliant 
les salles 4 et 6 puisque la porte bloque le passage. 

Par conséquent, une ligne supplémentaire est entrée dans le ta¬ 
bleau des actions (03 00 A04 F06....) ; celle-ci contrôle le poin¬ 
teur n° 6 chaque fois que le mot "SUD" est entré au niveau de la 

salle n° 4. 

En règle générale, si vous voulez poser certaines conditions au 
joueur quand il passe d'une salle donnée à une autre, préférez le 
tableau des actions à celui des couloirs. 

Messages : 

7010 PRINT "LA PORTE EST GOINŒE" 

7015 RETURN 

7020 PRINT "LA PORTE EST OUVERTE" 

7025 RETURN 

7030 PRINT "C EST DEJA ALLUME" 

7035 RETURN 

7040 PRINT "VOUS REUSSISSEZ TANT BIEN" , 

"QUE MAL A OUVRIR LA PORTE." 

7045 RETURN 

7050 PRINT "C EST TROP DUR A OUVRIR", 

"POUR VOUS." 

7055 RETURN 

7060 PRINT "VOUS AVEZ REUSSI. BRAVO." 

7065 RETURN 

7070 PRINT "VOUS NE POUVEZ FRANCHIR LA PORTE" 
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7075 RETURN 

Description des salles : 

8010 PRINT "VOUS'ETES ÀU BORD D UN GOUFFRE." 
8015 RETURN 

8020 PRINT "VOUS ETES DANS UN LABYRINTHE", 
"AVEC EES PASSAGES MENANT VERS", 
"EST,SUD,OUEST. UN PASSAGE", 
"OBSCUR GRIMPE DERRIERE VOUS." 

8025 RETURN 

8030 PRINT "CETTE CAVE CONTIENT SEULEMENT", 
"UNE MARE D HUILE." 

8035 RETURN 

8040 PRINT "VOICI UNE GRANDE PORTE ROUILLEE" 
8045 RETURN 

8050 PRINT "VOUS ETES DANS LA CHAMBRE OUEST." 
8055 RETURN 

8060 PRINT "VOUS ETES DANS LA CAVE AU TRESOR" 
8065 RETURN 


Objets ; 

Nombre d'objets : 5 
N° Numéro de salle 


1 

2 

3 

4 

5 


1 

0 

5 
0 

6 


Description 

UNE LAMPE 
UNE LAMPE ALLUMEE 
UN VASE CHINOIS 
UN VASE D HUILE 
UN LINGOT D OR 


Vocabulaire : 
Nombre de mots : 25 


Chaque ligne comprend six caractères maximum, les deux premiers 
correspondant au numéro du mot. 


OIN 

OINORD 

02E 

02EST 

03S 

03SUD 

040 

04OUES 

05M 

05FCNT 

06D 

06DESC 

13PREN 


14POSE 

15VASE 

160R 

17PORT 

180UVR 

19LAMP 

20ALLU 

21REMP 

22HUIL 

23INVE 

24QUIT 

25REGA 
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Nombre de salles : 6 
Tableau des couloirs : 

( 1 ) 00 

(2) 02030304040500 

(3) 040200 

(4) 010200 

(5) 020200 

(6) 010400 

Nombre de conditions supplémentaires : 3 

Conditions (ne pas entrer les espaces !) : 

A04 E06. D02 N. (salle n° 4, pointeur n° 6 activé - 

(signifie que la porte est ouverte 
A04 F06. DOl N. (salle n° 4, pointeur n° 6 non activé - 

(signifie que la porte est fermée 
AOl D05. D06 Q. (salle n° 1, objet 5 transporté - 

(le lingot est sorti - gagné ! 

Nombre de mots-clés correspondant aux actions : 21. 

Mots-clés correspondant aux actions : 


13 

19 

BOl. 

BOl 

L. 


(PRENd la lampe - objet 01 

14 

19 

BOl. 

COI 

L. 


(POSE la lampe 

13 

19 

B02. 

B02 

E03 

L. 

(PRENd la lampe (allumée) - objet 02 - 
(active aussi le pointeur n° 3 

14 

19 

B02. 

C02 

F03 

L. 

(POSE lampe allumée - désactive le 
(pointeur n° 3 

20 

00 

DOl. 

HOl 

E03 

L. 

(ALLUme la lampe - intervertit les objets 1 
(et 2 ; active aussi le pointeur n° 3 

20 

00 

B02. 

D03 

M. 


(ALLUme la lampe ; l'objet 02 est déjà là - 
(affiche 03 

06 

00 

AOl. 

E02 

K02 

O. 

(DESCend si dans la salle n° 1 - active alors 
(le pointeur d'obscurité 2 et continue à 
(la salle n° 2 

05 

00 

A02. 

F02 

KOI 

O. 

(MONTe si dans salle n° 2 - désactive alors 
(le pointeur d'obscurité n° 2 et continue à 
(la salle n° 1 

13 

15 

B03. 

B03 

L. 


(PRENd vase 

14 

15 

B03. 

C03 

L. 


(POSE vase 

13 

16 

B05. 

P05 

L. 


(PRENd l'or 

14 

16 

B05. 

C05 

L. 


(POSE l'or 

21 

00 

B03 

A03. 

HO 3 

L. 

(REMPlit le vase - doit avoir lieu dans 
(la salle n° 3 avec l'objet 3 
(intervertit les objets 3 et 4 
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22 

00 

A04 

B04. 

HO 3 

E05 L. 

18 

00 

A04 

E05. 

D04 

E06 M. 


18 

00 

A04 

F05. 

DOS 

M. 

03 

00 

A04 

F06. 

D07 

M. 

03 

00 

A04 

E06. 

K06 

O. 

23 

00 

.A. 




24 

00 

.P. 




25 

00 

.O. 





(HUILe la porte - doit avoir lieu dans la 
(salle n° 4 avec l'objet 4 (vase plein) - 
("vide" la bouteille et active pointeur n° 5 
(OUVRe la porte qui doit être huilée - 
(signifie que le pointeur n° 5 doit être 
(activé et que l'on est dans la salle n° 4 
(active le pointeur n° 6 
(essaye d'OUVRir la porte si pas huilée 
(- affiche le message 5. 

(SUD si pointeur n° 6 non activé - 
(signifie porte fermée 
(SUD si porte ouverte (pointeur n° 6 
(activé). Continue à la salle n° 6. 

(donne l'INVEntaire 
(QUITte le programme 
(REGArde où nous sommes 


VOS AVENTURES A L'EPREUVE 


Que faire si votre programme ne fonctionne pas ? Les quelques 
conseils qui suivent ont pour but de vous aider à dépister les 
erreurs éventuelles. 

L'expérience prouve que la plupart du temps les anomalies pro¬ 
viennent du tableau de conditions ou d'actions (spécification des 
actions incorrecte ou absence de renseignements appropriés). 

Vous pouvez exécuter le programme en mode lent ou rapide ; cepen¬ 
dant, la recherche de l'action correspondant au mot-clé dans le 
tableau fait parfois perdre de précieuses secondes. Aussi, le mode 
rapide est-il préférable dans ce cas. 

Si au bout d'une ou deux minutes rien ne se passe, l'anomalie se 
situe probablement au niveau du tableau des conditions. 

Appuyez alors sur la touche BREAK et vérifier une par une les 
variables suivantes en utilisant la commande PRINT en mode direct : 


CP 

contient le numéro de ligne en cours 
de conditions ou d'actions. 

du tableau 

T 

indique si le tableau de conditions 
est analysé. La valeur 0 correspond 
d'actions, la valeur 1 au tableau de 

ou d'actions 
au tableau 

conditions. 

Eg 

contient une "copie" de la ligne du 
conditions ou d'actions. 

tableau de 

P2(l) 

contient le numéro du premier mot-clé rencontré 
après l'introduction d'une commande. 
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PS (2) 

contient le numéro 
si un deuxième mot- 

du deuxième mot rencontré ou "00" 
-clé n'a pas été entré. 

SALLE 

numéro de la salle 

en cours 

S(n) 

active le pointeur 

n/ 0:éteint, 1: allumé 

C(n) 

compteur régressif 

n/ 0:compteur non branché 

0(n) 

numéro de la salle renfermant l'objet n. Si l'objet 
est transporté, 0(n) prend la valeur -1 ; si l'objet 
n'existe pas, 0(n) prend la valeur 0. 


Le sous-programme de chargement entre les tableaux (ou variables) 
suivants : 



tableau des couloirs 


R 

nombre de salles 


O 

nombre d'objets 


Q() 

tableau de localisation des objets ; 

copié dans 0() 

0^0 

description des objets 


V 

nombre de mots 


VJ?() 

tableau de vocabulaire 


c 

nombre des conditions 



tableau des conditions 


A 

nombre d'actions 



tableau des actions 



Une erreur courante consiste à employer le code action M à la 
place du code N pour terminer une entrée dans le tableau des condi¬ 
tions. Le code action M redemande l'analyse du tableau des condi¬ 
tions ; les mêmes conditions étant probablement toujours réalisées, 
le programme cyclera indéfiniment. Vérifiez que toutes les conditions 
entrées soient bien suivies du code N, à moins d'avoir une bonne 
raison pour en utiliser un autre (voir tableaux de l'exemple-test). 
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ALZAN. CITE INTERDITE 

CAPACITE MEMOIRE MECESSAIRE : 16K RAM 


Passons maintenant au vif du sujet. 

Le programme présenté ici est basé 
sur une adaptation du programme 
principal. 

L'action se déroule dans une ville 
imaginaire baptisée Alzan. Celle-ci 
est bâtie au sommet d'une falaise 
abrupte et abrite voleurs et cou- À 

peurs de tête. Ê 

Malheureusement pour vous, vous I 

êtes en plein milieu de cette char- ■ 
mante cité ; vous devez trouver le 1 
moyen de fuir à tout prix avant ’ 

d'être pris ou d'avoir contracté 
la peste. Pour vous faciliter la 
tâche, la cité est entourée de murs 
infranchissables (ou presque !) ; à 

vous de trouver comment les escalader. 

Peut-être découvrirez-vous le processus utilisé dans la création 
du jeu (donc le moyen de gagner à coup sûr !) lorsque vous charge¬ 
rez le programme. 

Aussi, pour conserver un certain suspense essayez de taper le 
programme sans trop l'approfondir au départ. 

Lors de l'exécution du programme, il reste 4150 octets vides. 
Ceci vous donne une idée de la place dont vous disposez pour écri¬ 
re vos propres jeux de l'aventure. A noter que l'utilisation du 
sous-programme de chargement des codes machine (voir chapitre 
"Utilisation des codes machine" page 79) peut s'avérer très inté¬ 
ressante dans la conception de vos programmes. 

Entrez les messages suivants : 

7010 PRINT "M3N PAUVRE.. .VOUS AVEZ DU", 

"ATTRAPER LA PESTE DANS UNE", 

"TOMBE CAR VOUE VENEZ DE MOURIR" 

7015 RETURN 

7020 PRINT TAB 12; "AIE AIE AIE" 

7022 PRINT "EL BANDITO LE TERRIBLE VOLEUR", 

"VIENT DE RAFLER VOTRE ARŒNT", 

"AVANT DE S ENFUIR DANS LA BRUME" 
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7025 RETURN 

7030 PRIWT "•"•AU VOLEUR— CRIE L OUVREUR", 
"MAIS VOUS REUSSISSEZ A FUIR." 

7035 RETURN 

7040 PRINT "LA TRAPPE EST DEJA OUVERTE" 

7045 RETURN 

7050 PRINT "CE N EST PAS DANS VOS MOYENS" 
7055 RETURN 

7060 PRINT "CA IRA TRES BIEN, MONSIEUR." 

7065 RETURN 

7070 PRINT " LA TRAPPE EST OUVERTE" 

7075 RETURN 

7080 PRINT " LA TRAPPE EST FERMEE" 

7085 RETURN 

7090 PRINT "LE MARCHAND EST PLUS PORT", 

"QUE VOUS..." 

7095 RETURN 

7100 PRINT "IL VOUS FAUT UNE ECHELLE POUR", 
"FRANCHIR LE MUR." 

7105 RETURN 

7110 PRINT "C EST DEJA ATT, TIME" 

7115 RETURN 

7120 PRINT "QUEL TRAIT DE GENIE" 

7125 RETURN 

7130 PRINT " VOUS AVEZ ROULE LES GARDIENS ET" 
"SUBTILISE UNE LIASSE DE BILLETS." 
"PERSOSINE N A RIEN REMARQUE.", 

"(DROLES DE TYPES LES ALZANAIS)" 

7135 RETURN 

7140 PRINT "VOUS AVEZ TOUT PRIS" 

7145 RETURN 

7150 PRINT "JE NE VOIS PAS DE TORCHE?" 

7155 RETURN 

7160 PRINT "LE CINEMA EST RESERVE A UNE", 
"UTILISATIC*! PRIVEE." 

7165 RETURN 

8010 PRINT TAB 8; "BIENVENUE A AT,7.AN" , , , 

"VOUS DEVEZ ESCALADER LES MURS SI" 
"VOUS VOULEZ ECHAPPER AUX VOLEURS" 
"ET AUX COUPEURS DE TETES." 

8015 RETURN 

8020 PRINT "VOUS ETES DANS LA GRANDE RUE", 
"DEVANT UN BAZAR. LA RUE VA", 

"DE L EST A L OUEST ET UNE", 
"RUELLE SE DIRIGE AU NORD A COTE", 
"DE LA BOUTIQUE." 

8025 FîETURN 
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8030 PEINT "VOUS ETES DANS LA BOUTIQUE. LE", 
"MARCHAND A L AIR ROUBLARD MAIS", 
"IL A UN BEL ETALAGE." 

8035 RETURN 

8040 PEINT "VOUS ETES DANS UNE RUELLE", 

"DERRIERE LES BUILDINGS. IL Y A", 
"BEAUCOUP DE POUBELLES SOUS", 

"L ESCALIER DE SECOURS." 

8045 RETURN 

8050 PEINT "VOUS ETES DANS L ESCALIER", 

"DE SECOURS QUI MENE DANS", 

"LE BUILDING PAR UNE PORTE." 

8055 RETURN 

8060 PEINT "VOUS ETES DESCENDU DANS LA", 

"BOUTIQUE PAR UN ESCALIER ffiROBE" 

8065 RETURN 

8070 PEINT "VOUS ETES SUR UNE COURSIVE", 
"ENTRE LES BUILDINGS." 

8075 RETURN 

8080 PEINT "CE MUR E'AIT PARTIE DE L ENCEINTE" 
"IL Y A UNE PORTE ABANDONNEE", 

"A CET ENDROIT. " 

8085 RETURN 

8090 PEINT "VOUS ETES A UN CARREEOUR. " 

8095 RETURN 

8100 PEINT "VOICI LE MUR D ENCEINTE. LA MER", 
"EST DANS LA BRUME,CE QUI REND", 
"LA VISIBILITE MAUVAISE." 

8105 RETURN 

8110 PEINT "VOUS VOUS ECRASEZ SUR UN ROCHER", 
"APRES UN PLONGEON ffi 100 M DU", 
"HAUT DES REMPARTS. VOUS AUREZ", 
"PLUS DE CHANCE LA PROCHAINE POIS" 

8115 RETURN 

8120 PEINT "VOUS ETES DEVANT LA BANQUE" 

8125 RETURN 

8130 PEINT "LES NOMBREUX GARDIENS DE LA", 
"BANQUE CNT L AIR TE S ENNUYER" 

8135 RETURN 

8140 PRINT "VOUS ETES DANS UNI CUL DE SAC", 
"MAIS IL Y A UNE TRAPPE SUR", 

"LA ROUTE..." 

8145 RETURN 

8150 PRINT "VOUS ETES DANS UNE CAVITE", 

"SOUS LA TRAPPE. LN PASSAŒ", 

"MENE VERS LE SUD." 

8155 RETURN 
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8160 PRINT "LE PASSAGE MENE DANS UNE", 
"ASICIENNE TOMBE OU SONT", 
"ENTREPOSES DES SARCOPHAGES." 

8165 RETURN 

8170 PRINT "L OUVREUR NE VOUS LAISSE PAS", 
"ENTRER ALORS QUE LE PROGRAMME", 
"EST COMMENCE. IL VOUS BARRE LE", 
"PASSAGE AVEC SA TORCHE." 

8175 RETURN 

8180 PRINT "VOUS ETES DEVANT LE CINEMA.", 

"W ENTEND DES COUPS DE FEU", 

"A L INTERIEUR. " 

8185 RETURN 

8190 PRINT TAB 8; " *** FELICITATIONS *** ", 
"VOUS ETES SORTI DE LA VILLE.", 

"C EST EXCEPTIONNEL. BRAVO. " 

8195 RETURN 


Tapez à présent la commande RUN 9000 pour démarrer le sous- 


programme d'initialisation. Le 

Nombre d'objets : 11 

Salle contenant l'objet 

0 

0 

3 

3 
0 
0 
0 

15 

16 
0 

4 


Nombre de mots : 41 


OIN 

19 MART 

OINORD 

20LIAS 

02E 

20BII1. 

02EST 

22SAC 

03S 

22CIJOU 

03SUD 

23CART 

040 

05ESCA 

04OUES 

osœiM 

05M 

290UVR 

OSNOSIT 

29S01JL 

06D 

30FABR 

06ŒSC 

30CDNS 


contenu des tableaux est le suivant : 


Description 

UNE LAMPE ALLUMEE 
UNE TORCHE 
UNE ECHELLE 
UN MARTEAU 
UN MARTEAU 

UNE LIASSE DE BILLETS 
UNE TRAPPE 
UN SAC DE CLOUS 
UNE CARTE DE CREDIT 
UNE ECHELLE RAIDE 
DU BOIS 
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13PRH^ 
14METr 
14P0SE 
15ENTR 
15DEDA 
16DEH0 
16S0RT 
17T0RC 
1 SECHE 


31ALLU 

32ACHE 

33BOIS 

34ŒRO 

34VDLE 

35INVE 

36QUIT 

37REGA 


Nombre de salles : 19 


Numéro de salle Couloirs 


1 

00 


2 

01 

04 

3 

00 


4 

02 

02 

5 

06 

04 

6 

00 


7 

01 

08 

8 

03 

07 

9 

01 

12 

10 

04 

09 

11 

00 


12 

02 

09 

13 

00 


14 

01 

09 

15 

03 

16 

16 

01 

15 

17 

00 


18 

01 

12 

19 

00 



02 

09 

04 

18 

00 

05 

05 

00 



04 

07 

00 



03 

05 

00 



00 





02 

10 

03 

14 

04 02 00 

00 





04 

18 

00 



00 





00 





00 





02 

02 

00 




Nombre de cx>nditions : 9 

TaEleau des conditions (les espaces servent simplement à obtenir 
une écriture aérée et ne doivent pas êtres entrés) : 


AOl. K02 0. 

A16 H30. G0121. 
GOl. DOl Q. 

B06 HIO. D02 JC6, 
A14 E07. D07 N. 
A14 F07. DOS N. 
Ail. Q. 

A19. Q. 

AC6. KC3 0. 


121 



LE PETIT LIVRE DU ZX81 


Nombre d'actions : 47 

Tableau des actions (les espaces servent simplement à obtenir un 
affichage plus aéré et ne doivent pas être entrés) : 


13 

17 

BOl. 

BOl 

E03 

L. 





13 

17 

A17 

COI C02. 

102 

BQ2 

D03 

Kl 8 

ElO O 

32 

18 

B03. 

D05 

N. 






13 

19 

B05. 

B05 

L. 






13 

20 

B06. 

B06 

L. 






29 

00 

Al 4 

1:07. 

D04 

N. 





29 

00 

A14. 

E07 

M. 






13 

22 

B08. 

B08 

L. 






13 

23 

B09. 

B09 

L. 






14 

17 

BOl. 

COI 

F03 

L. 





14 

17 

B02. 

C02 

L. 






14 

19 

B05. 

C05 

L. 






14 

20 

B06. 

C06 

L. 






14 

22 

B08. 

COB 

L. 






14 

23 

B09. 

C09 

L. 






05 

00 

AlO 

CIO. 

DIO 

M. 





05 

00 

A08 

CIO. 

DIO 

M. 





05 

00 

AlO. 

Kll 

0. 






05 

00 

A08. 

K19 

O. 






05 

00 

A15. 

F02 

K14 

O. 





06 

00 

A14. 

E02 

K15 

O. 





31 

00 

D02. 

HOl 

E03 

L. 





31 

00 

BOl. 

DU 

N. 






32 

19 

B04 

B06. 

•H04 

J06 

BOf) 

L. 



32 

19 

B04 

B09. 

H04 

D06 

B05 

ri. 



30 

00 

B05 

Bll B08. 

DI 2 

110 

J08 

Jll 

M. 

13 

33 

Bll. 

Bll 

L. 






14 

33 

Bll. 

Cil 

L. 






15 

00 

A02. 

K03 

O. 






15 

00 

A12. 

K13 

O. 






15 

00 

A18 

FIO. 

K17 

O. 





16 

00 

A03. 

KO 2 

O. 






16 

00 

A13. 

K12 

O. 






16 

00 

A17. 

Kl 8 

O. 
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15 

00 

A05. 

KO 6 

0. 

34 

00 

A03. 

D09 

M. 

34 

00 

Al 3 

E08. 

D14 

34 

00 

A13. 

E08 

DI 3 

15 

00 

A18 

ElO. 

D16 

13 

18 

BIO. 

BIO 

L. 

14 

18 

BIO. 

CIO 

L. 

13 

18 

B03. 

D09 

M. 

13 

17 

B02. 

B02 

L. 

35 

00 

.A. 



36 

00 

.P. 



37 

00 

.0. 



50 

00 

.N. 




A présent, sauvegardez le programme (sous le nom ALZAN par exem¬ 
ple) à l'aide du sous-programme incorporé à cet effet. L'exécution 
sera lancée automatiquement quand vous chargerez à nouveau le pro¬ 
gramme en mémoire. Si vous désirez au contraire une nouvelle exé¬ 
cution pour quelque raison que ce soit, introduisez la commande 
GOTO 1. Sinon la commande RUN effacerait le contenu de toutes les 
variables en détruisant le jeu par la même occasion. 

Et maintenant à vous de jouer... 
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COMMENT PASSER DU 
ZX 80 AU ZX 81 


Des milliers de programmes écrits pour la version originale du 
ZX80 ROM 4K ne peuvent être adaptés directement sur le ZX81 (ou 
même sur la version ZX80 ROM 8K). 

Cet appendice assez condensé vous donnera un aperçu sur la ma¬ 
nière d'adapter un programme écrit pour la version ROM 4K du ZX80. 

1- Dans le cas du ZX80 tous les indices de variable peuvent démar¬ 
rer à zéro ; pour le ZX81 ils doivent obligatoirement démarrer 

à 1. N'importe quel programme comportant l'indice zéro doit être 
modifié en utilisant l'indice 1. Une méthode rapide (bien que 
pas toujours fiable) consiste à ajouter 1 à chaque indice que 
vous rencontrez dans le programme. 

2- Le ZX80 utilise la fonction particulière TL^ ; celle-ci ôte le 
premier caractère de la chaîne afférente. Elle peut être rem¬ 
placée par l'utilisation de l'expression (2 TO ) accolée à la 
variable alphanumérique. 

Par exemple : 

LET 

devient 

LET A^=X^(2 TO ) 

3- La fonction RND travaille d'une façon différente dans les deux 
cas ; en effet, pour le ZX80 ROM 4K l'argument fixe la valeur 
maximale du nombre aléatoire. Ainsi RND(IOO) donne un nombre 
aléatoire compris entre 1 et 100. 

On peut détourner la difficulté de la façon suivante : 

LET N=RND(X) 

doit être à présent écrit : 

LET N=INT (RNB*X)+1 
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4- Le ZX80 ROM 4K ne manipule que les valeurs entières ; le résul¬ 
tat des divisions est donc systématiquement arrondi. On peut 
utiliser à cet effet la fonction INT dans l'expression du résul¬ 
tat des divisions (à moins d'avoir une bonne raison pour ne pas 
le faire) . 

5- Sur le ZX80, la virgule utilisée avec l'instruction PRINT (tabu¬ 
lation automatique) décale l'affichage d'un quart d'écran sur 

la droite (au lieu d'un demi pour le ZX81). En utilisant la 
fonction TAB avec précautions, il est possible de se déplacer 
latéralement sur la zone d'impression suivante. 

Les différentes zones d'impression correspondent à : 

TAB 8, TAB 16, TAB 24 et TAB 0 (début de ligne) 

6- Les programmes utilisant les instructions PEEK et PCKE ne peu¬ 
vent être adaptés directement sur le ZX81. Nous avons déjà vu 
les conséquences de l'emploi de ces instructions sur le program¬ 
me ; d'autre part, donner ici une liste des variables-système 

du ZX80 serait trop long. 

7- Certaines valeurs des codes caractères ont été modifiées (parti¬ 
culièrement pour les caractères graphiques). Aussi, méfiez-vous 
des programmes contenant un grand nombre de fonctions (X)DE. Les 
valeurs des codes n'ayant pas changé sont compris entre 12 et 
17, 25 et 63, 140 et 145, 153 et 191. D'autres valeurs sont 
également restées identiques, mais l'essentiel est de savoir 
que les caractères 0 à 9 et A à Z ont conservé le même code. 

8- Le ZX80 exécute une boucle POR/NEXT au moins une fois. Ceci 
n'est pas vrai dans le cas du ZX81, puisque la boucle est tout 
à fait court-circuitée si la valeur "finale" est déjà dépassée. 
Il est vraisemblable que cela ne vous posera pas trop de pro¬ 
blèmes. Cependant, méfiez-vous des boucles utilisant les noms 
de variables en tant que valeurs de contrôle et valeurs limites. 

Ces quelques différences mises à part, vous ne devriez pas 
rencontrer trop de problèmes ! Le meilleur moyen pour s'en assurer 
est de comprendre le programme d'abord puis de le ré-écrire correc¬ 
tement. Il a alors plus de chance de marcher convenablement. 
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ZX 81 : LISTE DU 
SÉLECTEUR DE BLOC 


Cet appendice présente la liste en assembleur du programme écrit 
dans le chapitre 7 ("Utilisation des codes machine"). 

Les adresses de tous les codes machine sont données par rapport 
à une adresse de départ 0000. Cette méthode permet d'implanter le 
programme à n'importe quel endroit de la mémoire utilisateur. 

; ZX81 Sélecteur de bloc 

; Variables système 


4004 

ramtop 

equ 

16388 

; pointeur de la dernière 
adresse mémoire 

4007 

ppc 

equ 

16391 

; numéro de la ligne en cours 
d'exécution 

400C 

dfile 

equ 

16396 

;pointeur du fichier écran 

4010 

vars 

equ 

16400 

;pointeur de la zone varia¬ 
bles 

401C 

stkend 

equ 

16412 

;pointeur de la mémoire 





restante 

407B 

spare 

equ 

16507 

; variable système inutilisée 

0005 

maxbloc 

equ 

5 

; nombre de blocs en sous- 
programmes 

0000' 

cseg 



0000' 

adresdepart 




L'exécution d'une instruction d'appel à un 
sous“programme en code machine (GOSUB USR) 
provoque l'affectation de l'adresse de bran¬ 
chement dans le registre BC. Cette adresse 
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est utilisée comme base de calcul pour 
toutes les instructions JUMP et CALL,confi¬ 
nant le sous-programme à une seule page. 

La variable système RAMTOP doit contenir 
l'adresse du début d'une page mémoire 
(c'est-à-dire un multiple de 256). Ce nu¬ 
méro de page est affecté au registre H et 
doit rester identique pendant l'exécution 
du sous-programme. 

Le numéro d'appel du bloc de sous-programme 
est placé dans l'octet le moins significa- 




; tif de 

la variable 

système "SPARE". 

0000' 

3A 407B 

Id 

a,(spare) 

; charge le numéro du bloc 

0003' 

FE 05 

cp 

maxbloc 

; numéro de bloc correct ? 

0005' 

DO 

ret 

ne 

; retourne si incorrect 

0006' 

5F 

Id 

e,a 

; copie l'accumulateur dans 
le registre pair DE 

0007' 

16 00 

Id 

d,0 


0009' 

21 0010' 

Id 

hl,tablebloc ; adresse des blocs 

OOOC 

60 

Id 

h,b 

; copie le numéro de page 
dans H 

OOOD' 

19 

add 

hl ,de 

; additionne le numéro de 





bloc 

OOOE' 

6E 

Id 

1, (hl) 

; obtient l'adresse du 





sous-programme 

000F' 

E9 

jP 

(hl) 

;va à l'adresse du sous- 
programme 

0010' 


tablebloc 




L'introduction de la valeur zéro dans 
"SPARE" provoque un saut à la première 
adresse de cette table. Chaque octet 
entré donne la valeur relative du dépla¬ 
cement à effectuer par rapport à l'adresse 
départ pour obtenir l'adresse du bloc dési¬ 
ré . 


0010' 

15 

defb 

(foncO-adresdepart) 

and 

Offh 

0011 ' 

22 

defb 

(foncl-adresdepart) 

and 

Offh 

0012' 

27 

defb 

( fonc2-adresdepart) 

and 

Offh 

0013' 

2C 

defb 

(fonc3-adresdepart) 

and 

Offh 

0014' 

31 

defb 

(fonc4-adresdepart) 

and 

Offh 


0015' foncO: 

; Donne l'estimation de la mémoire disponible 

0015' 21 0000 Id hl,0 jefface le contenu de HL 

0018' 39 add hl,sp ; obtient le pointeur de 

pile 


127 





LE PETIT LIVRE DU ZX81 


0019' 

ED 

5B 

401C 

Id 

dl,(stkend);fin de la mémoire système 

OOID' 

ED 

52 


sbc 

hl,de ; obtient la différence 

001F' 

44 



Id 

b,h ; met la réponse dans BC 

0020' 

4D 



Id 

cd 

0021 ' 

C9 



ret 

; retourne au Basic 

0022' 



fond 

Donne 

l'adresse du fichier écran 

0022 ' 

ED 

4B 

400C 

Id 

bc,(dfile) ; copie le contenu de la 






variable système 

0026' 

C9 



ret 

; retourne au Basic 

0027' 



fonc2 

Donne 

l'adresse des variables du Basic 

0027' 

ED 

4B 

4010 

Id 

bc, (vars) ; copie le contenu de VARS 

002B' 

C9 



ret 


002C' 



fonc3; 

Donne 

l'adresse de la mémoire libre 




; (au-delà 

de ce sous-programme) 

002C' 

01 

0036 

Id 

bc,limiteprogram-adresdepart 

002F' 

44 



Id 

b ,h 

0030' 

C9 



ret 


0031 ' 



fonc4: 

Donne 

le numéro de ligne en cours 

0031 ' 

ED 

4B 

4007 

Id 

bc,(ppc) ;copie le contenu de la 






variable système PPC 

0036' 



limiteprogramequ $ ; occupation de la mémoire 


end 
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SOLUTIONS DES PROBLÈMES 


TEMPS D’EXECUTION DES PROGRAMMES DE REFERENCE 


Voici les résultats obtenus sur le ZX81 en mode lent. Les temps 
ont été déterminés à l'aide d'un chronomètre digital d'une valeur 
de 100 Francs environ. 


Nom 


Temps d'exécution 


PRIA 

PRIE 

PR2A 

PR2B 

PR3A 

PR3B 

PR4A 

PR4B 

PR5A 

PR5B 

PR6A 

PR6B 

PR7A 

PR7B 


24.9 

25.4 
24.9 

35.4 
24.9 

37.5 

24.9 
61.8 

31.9 
26.8 
22.8 

25.5 
27.0 
17.8 


Un dernier point. Dans le jeu des questions et des réponses 
(page 14), une question vous avait été posée, à savoir : comment 
répondre à une question correctement sans même la lire ? 

C'est très simple. A chaque fois qu'une question est posée, la 
réponse est déjà affectée à En effaçant les guillemets (EDIT) 

et en entrant comme solution, vous aurez immanquablement la 
réponse correcte ! De toute façon, qui aime les questions... ? 
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INDEX DES MOTS BASIC 


Nom 


Signification 


ABS(n) 

ACS(n) 

AND 

ASN(n) 

AT y,x 

ATN(n) 

CHR^(n) 

CLEAR 

CLS 

CODE(s) 
CONT 
COP Y 
COS(n) 

DIM 

EXP(n) 

FAST 

FOR 

GOSUB n 

GOTO n 

IF e THEN 

INKEY^ 

INPUT 

INT(n) 

LEN(s) 

LET 

LIST 

LLIST 

LN(n) 

LOAD 

LPRINT 


donne la valeur absolue de n 

valeur en radians de Arc Cosinus n 

opérateur logique 

valeur en radians de Arc Sinus n 

commande l'affichage à la ligne y colonne x 

Arc Tangente n en radians 

donne le caractère correspondant au code n 
efface toutes les variables 

efface l'écran et positionne 1'affichage en haut à gauche 
donne le code du premier caractère de la chaîne s 
reprend l'exécution du programme après 
copie l'affichage écran sur l'imprimante 
donne la valeur en radians de Cosinus n 
dimensionne un tableau (alphabétique ou numérique) 
fournit la valeur de e^^ (exponentielle) 
met le ZX81 en mode rapide 

introduit une variable de contrôle dans une boucle 

branche au sous-programme de la ligne n 

branche le programme à la ligne n 

clause THEN réalisée si l'expression e est vrai 

fournit le caractère correspondant à la touche (s'il y 

entrée d'expressions numériques ou alphabétiques^ji^^^^ 

arrondit n à la valeur entière par défaut 

donne la longueur de la chaîne afférente 

affectation des variables 

affiche la liste du programme 

écrit la liste du programme sur l'imprimante 

fournit la valeur de logg(n) (logarithme népérien) 

charge un programme donné à partir d'une cassette 

écrit les expressions afférentes sur l'imprimante 
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NEW 

NEXT 

NOT(n) 

OR 

PAUSE 

PEEK(n) 

PI 

PLOT 

PRINT 

RAND 

REM 

RETURN 

RND 

RUN 

SAVE 

SCROLL 

SGN(n) 

SIN(n) 

SLOW 

SQR(n) 

STEP n 

STOP 

STR^(n) 

TAB(n) 

TAN(n) 

UNPLOT 

USR(n) 

VAL(s) 


efface totalement le contenu de la mémoire du ZX81 
actualise la variable de contrôle à la valeur suivante 
inverse le résultat de la comparaison vraie de l'expres- 
opérateur logique sion n 

suspend l'exécution pendant n/50 secondes 
donne la valeur de l'octet situé à l'adresse n 
donne la valeur 3.1415926 

affiche en noir l'élément d'image de coordonnées x,y 
place les expressions afférentes dans le fichier d'af- 
affectation de la base aléatoire fichage 

permet des annotations au début d'un programme 
termine un sous-programme 

fournit la valeur du nombre aléatoire 0<=n<l 

efface le contenu des variables et lance l'exécution du 

sauvegarde un programme donné sur cassette programme 

fait sauter une ligne à l'affichage 

fournit le "signe" de n (-1,0 ou +1) 

donne la valeur en radians de Sinus n 

place le ZX81 en mode lent (mode calcul et affichage) 

donne la racine carrée de n 

incrément n effectué au cours d'une boucle 
interrompt l'exécution du programme en donnant^le^cod^ 
donne la correspondance alphabétique du nombre n 
déplace l'affichage à la colonne n 
donne la valeur en radians de Tangente n 
efface l'élément d'image de coordonnées x,y 
appelle le sous-programme en codes machine situé à l'a¬ 
dresse n de la mémoire 

donne la valeur numérique de la chaîne s (si cela est 

possible) 


Renseignements utiles ; 



CCXH "0" - 

28 




CCXE "A" - 

38 



FRAMES 

16436/7 


VARS 

16400/1 

RAMIOP 

16388/9 


DFILE 

16396/7 

Le programme démarre 

à 16509 
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CODE ERREUR 


Code erreur 
0 
1 
2 

3 

4 

5 

6 

7 

8 
9 
A 
B 

C 

D 

E 

F 


Signification 

la variable de contrôle n'existe pas 
nom de variable non défini 
indice en dehors des limites 
mémoire insuffisante 
fichier d'affichage écran complet 
dépassement de capacité arithmétique 
instruction RETURN trouvée sans GOSUB 
INPUT utilisé en mode direct 
commande STOP exécutée 

fonction numérique incorrecte (exemple :SQR -1) 

valeur entière en dehors des limites (PRINT, 

AT,PLOT, etc.) 

l'argument de VAL n'est pas une expression 
numérique 

interruption du programme (BREAK ou STOP dans 
INPUT) 

inutilisé 

absence de nom de la commande SAVE 
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